Abrruchkriterum in Whileschleife greift nicht
12.03.2015 11:21:17
Max
ich habe eine simple while-Schleife, die das Datum in 15 Minuten-schritten ausgeben soll. Der Code tuts, aber die Schleife hört beim eingestellten Enddatum nicht auf.
Sub datum()
Dim wbA As Object
Dim dateStart, dateEnd, dateActuell As Date
Dim i As Long
Set wbA = ThisWorkbook.Sheets("Zusammenfassung")
dateStart = "19.08.2014 20:00:00"
dateEnd = "11.11.2014 03:00:00"
dateActuell = dateStart
i = 2
Do
dateActuell = DateAdd("n", 15, dateActuell)
wbA.Cells(i, 1) = DateSerial(Year(dateActuell), Month(dateActuell), Day(dateActuell))
wbA.Cells(i, 2) = TimeSerial(Hour(dateActuell), Minute(dateActuell), Second(dateActuell))
i = i + 1
Loop While dateActuell Kann mir einer sagen, wo der Fehler liegt?
Vielen Dank im Vorraus!
Max
Anzeige