Datumswerte fortschreiben / AddDate
11.09.2018 16:17:32
Georg
eine Datei wird mit Worksheets aufgefüLlt, die Anzahl wird über die Variable Zahl bestimmt,
Dann soll in jedem NEUEN Worksheet in die Zelle A7 ein Datum stehen, beginnend mit 01.01.2019, im Blatt 2 dann 01.02.2019 uws. Ich habe es so gelöst, es funktioniert aber nicht korrekt.
WAS NOCH schön wäre: Könnte A8, A9 usw. befüllt werden mit bspw. 02.01.2019, 03.01.2019 usw. ? Vielen Dank
Sub Datum ()
Dim Datum As Date
Datum = "01.01.2019"
With Datei2019.Worksheets(1)
.Cells(7, 1).Value = Datum
End With
For i = 2 To zahl
' Startdatum = Application.InputBox("Monatsstart eingeben: DD.MM.JJJJ")
With Datei2019.Worksheets(i)
.Cells(7, 1) = Datum + DateAdd("m", i, Datum)
End With
Next i
End Sub
Anzeige