Hallo,
ich habe einen logischen Fehler den ich einfach nicht sehen kann.
Aufgabe:
ich will aus einer Tabelle die derzeit 26 Eiträge hat aus der Spalte 4, für einen bestimmten Zeitraum (in einer Userform eingegeben), die Werte zusammen zählen. Das Datum der einelnen Einträge steht in der Spalte 2
Die Werte aus Me.Jahr_Form.Value,Me.Jahr_Ende.Value,Me.Datum_Form.Value und Me.Datum_Ende.Value sind Eingaben aus einer Userform. Me.Liter_ges.Caption ist das Ausgabefeld in der Userform wo die zusammengezählten Werte stehen sollen. Hier mein Code:
For n = 2 To iLetzteZelle
If Year(Cells(n, 2)) = Me.Jahr_Form.Value Or Me.Jahr_Ende.Value Then
If Month(Cells(n, 2)) = Me.Datum_Form.Value Or Me.Datum_Ende.Value Then
iLiter = iLiter + Cells(n, 4)
Me.Liter_ges.Caption = iLiter
End If
End If
Next
Wenn ich die Werte in Kontrollausgaben ausgebe sind diese Korrekt, dennoch werden immer alle Werte aus der Tabelle zusammengezählt und nicht nur die für den vorgegebenen Zeitraum. Syntax-, Laufzeit- oder Typenfehler werden keine gezeigt.Kann mir jemand sagen wo mein Denkfehler ist?
Danke