Datum zählweise VBA

[Basti567]

Guten Morgen,

ich suche eine Lösung für folgendes Problem.

In Excel ein Datum -beginnend mit dem nächsten Ersten- in eine Zelle über VBA eingefügt werden (über einen Button).
Die nächsten Zeillen, sollen dann mit den Monatsersten der nächsten zwei Jahre gefüllt werden.

Die sich u. a. wie folgt lösen lassen:



Worksheets("Tabelle1").Cells(7, 14)= DateSerial(Year(Date), Month(Date) + 1, 1)


Cells(9, 14) = DateSerial(Year(Cells(7, 14)), Month(Cells(7, 14)) + 1, Day(Cells(7, 14)))
 
Cells(11, 14) = DateSerial(Year(Cells(7, 14)), Month(Cells(7, 14)) + 1, Day(Cells(7, 14)))

usw. usw.

geht aber bestimmt noch besser und kürzer. Ich habe es mit :


Dim i As Integer
 
For i = 7 To 31


Worksheets("Tabelle1").Cells(i, 14)= DateSerial(Year(Date), Month(Date) + 1, 1)


Cells(i, 14) = DateSerial(Year(Cells(i, 14)), Month(Cells(i, 14)) + 1, Day(Cells(i, 14)))

Next i

versucht, aber dann bekomme ich 24x nur den 01.12.2020 angezeigt.

Weis jemand wie man den Code richtig schreiben müsste?

Viele Grüße

Basti

[Sulprobil]

Gib der ersten Ausgabezelle den Namen Hierher.

Code:

Sub Monatserster2Jahre()
Dim i As Long, dt(1 To 24) As Date
For i = 1 To 24: dt(i) = DateSerial(Year(Date), Month(Date) + i, 1): Next i
Range("Hierher").Resize(24).FormulaArray = Application.WorksheetFunction.Transpose(dt)
End Sub

[Basti567]

Sorry,

wenn ich ich mich jetzt ein bisschen blöd anstelle- aber gibt man der Ausgabenzeile den Namen hierher?

---

Habs -muss den Zellen Namen eintragen.

Vielen Dank

[RPP63]

Moin!
Oder ein Einzeiler:
Range("D1:D24").Formula = "=EOMONTH(TODAY(),ROW(Z1)-1)+1"

Gruß Ralf