Wie Mase bereits schrieb,
prüfe ob deine SumIfs-Funktion in einer Excel-Zelle funktioniert. Ich glaub nicht dran, aus folgenden Gründen:
Du hast Startdate und Enddate als Date deklariert weist ihnen mit der FormatFunktion aber einen String zu. Nimm stattdessen Cdate oder alternativ CLng. Dabei ist die Formatierung in einen Datumsstring nicht notwendig.
Du berechnest die Datumsangaben mit Now. Das gibt dir das heutige Datum + die Jetzige Uhrzeit zurück. Dadurch wird das gewünschte Startdatum aus der Formel ausgeschlossen weil dieses mit 0:00 Uhr unter der jetzigen Uhrzeit liegt. Nimm statt Now lieber die Date-Funktion.
Prüfe weiterhin ob du in der Spalte Artikelnummer wirklich nur 4 stellige Artikel hast. Denn du suchst nach Scanartikel. Dieser schneidet von der Artikelnummer nur die letzten 4 Stellen ab. Außerdem liefert die Right Funktion wieder einen String. Solltest du besser mit CLng umwandeln.
Schließlich bleibt die Frage ob es überhaupt Werte <1 im Feld Buchungsmenge in dieser Zeit gibt.
Du kannst das Wort WorksheetFunction auch weglassen. Wenn nichts gefunden wird, wird dir dann ein Formelfehler zurückgegeben, den du mit IsError(Verbrauch) prüfen kannst. Da sparst du dir den ON Error Handler und kannst auf normale Fehler anders reagieren.
PS: Die Verwendung eines Sliders kann auf anderen Computern zu Problemen führen, wenn dieser dort nicht installiert oder korrekt verknüpft ist. Ich bin daher wieder davon abgekommen diesen zu verwenden und bevorzuge lieber ein Drehfeld (Spinbutton) in Verbindung mit einem Textfeld.
Gruß Mr. K.
|