|  
                                             Mach Dir mal eine einfache Mappe. 
Schreibe von A1 bis A10 Daten. 
Schreibe von B1 bis B10 Werte. 
Schreibe Deine =SummeWenns()-Formel in D1. 
  
Wenn Dein Konstrukt funktioniert, 
wiederhole den Vorgang und zeichne mit dem Makrorekorder auf.  
Begutachte Dein Ergebnis. 
  
Allgemeiner Hinweis zum Code: 
Dim EndDate As Date
Dim StartDate As Date
StartDate = Format(Now - (Slider1.Value * 7), "dd.mm.yyyy")
EndDate = Format(Now, "dd.mm.yyyy") 
  
Format-Funktion (Visual Basic for Applications) | Microsoft Docs 
Format() liefert Dir den Datentyp (Variant)String. 
  
Auf die Schnelle folgende gefunden: 
Folie 1 (mwn.de)  => Seite 22 
Implizite und explizite Konvertierungen - Visual Basic | Microsoft Docs 
Typkonvertierungsfunktionen (VBA) | Microsoft Docs 
  
     |