Hallo,
das Ganze scheint ein Teil aus einer Hausaufgabe zu sein.
Die Angaben sind allerdings widersprüchlich:
Ab A10 soll laut Beitrag immer eine Minute hinzuaddiert werden. Im Beispiel wurde allerdings eine Stunde hinzuaddiert.
Wenn tatsächlich jede Minute hinzuaddiert werden soll, reichen die Max. Zeilen von 1045876 Zeilen nicht aus, um das Ganze bis zu 5 Jahre fortsetzen zu können.
In Spalte B soll dem Text zufolge das gleiche stehen, wie in Spalte A ab A10?
Im Beitrag wurde hier wiederum Spalte A10 und weitere mit Beispielinhalten angegeben.
Wie auch immer. Eine Teillösung könnte so aussehen:
Sub FillDateValues()
Dim rng As Range
Dim datVal As Date
datVal = Range("A1").Value
Set rng = Range("A10")
Do
rng.Value = datVal
'datVal = DateAdd("n", 1, rng.Value) ' 1 Minute addieren
datVal = DateAdd("h", 1, rng.Value) ' 1 Stunde addieren
Set rng = rng.Offset(rowOffset:=1)
Loop While datVal <= DateAdd("YYYY", 5, Range("A1"))
End Sub
LG, Ben
|