Hallo Zusammen und vorab allen ein schönes WE!
Ich möchte gern auf einer UF eine Berechnung vom Monatsersten - bis Monatsletzten vornehmen.
In TextBox1 steht der Monatserste, in TextBox2 der Monatsletzte.
Mein Code funzt nicht.
Dim lng As Long
For lng = 7 To 5850
If Sheets("Termine").Cells(lng, 220).Value > CDate(TextBox2) Then Exit For
If Sheets("DUZ").Cells(lng, 220) >= CDate(TextBox1) Then
TextBox11 = WorksheetFunction.Sum(Sheets("DUZ").Cells(lng, 229))
End If
Next lng
Ich erhalte als Ergebnis 0, obwohl in meinem Fall als Ergebnis 4 erscheinen müsste.
Was ist bei mir falsch? Bitte um Hilfe und bereits jetzt schon Danke!
Gruß Frank H.