Hallo, bitte um Hilfe, ich hab folgenden Code abgeschrieben:

Sub DatumPlus()

Dim dat As Date

dat = Range("A2:A43").Value
Range("P2:P43").Value = DateSerial(Year(dat), Month(dat) + 3, 0)

End Sub

es funktioniert wenn ich nur ("A2") bzw. ("P2") eingebe, aber ich hätte ja jeweils bis Zeile 43 das gerne.

Vielen Dank

LG Franz