Datumsintervall
09.01.2023 09:29:33
Jens
ich habe hier eine Liste mit 23 immer wiederkehrenden Namen. In die Zelle vor jedem Namen soll ein Datum stehen. Nachdem dies geschehen ist, soll sich das Datum um einen Tag erhöhen und wieder vor jedem Namen eingetragen werden. So lange, bis wir den 31.12.2023 erreicht haben.
Im Prinzip funktioniert das auch. Nur springt mir das Datum vom 01.02.2023 auf den 05.03.2023. Und danach dann augenscheinlich völlig willkürlich.
Hier der Code:
Public Sub neue_datei()
Dim zeile As Integer
Dim datum As Date
Dim tag As Integer
Dim intervall As Integer
zeile = 2
datum = Cells(3, 17).Value
tag = 1
For zeile = 2 To 8770
If intervall