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
|