Hallo Freunde,

habe in der 8 Spalte datume hinterlegt möchte nun auf die datum 12 Monate auf addieren und das ergebniss in die 6 spalte wieder eintragen lassen.

wenn ich es per einzelschritt laufen lasse bekommt die die variableNAme Datum1 nicht die inhalte was in der spalte 8 steht gelifert wo mache ich mein fehler

sub test()

Dim Datum1 As Date ' Variablen deklarieren.
Dim IntervallTyp As String
Dim Zahl As Integer
Dim anzahl As Double
Dim i As Double

IntervallTyp = "m" ' "m" gibt Monate als Intervall an.

'anzahl ermitteln
Cells(2, 1).Select
Cells(16384, ActiveCell.Column).End(xlUp).Select
Range(Cells(ActiveCell.Row, 1), Cells(2, 1)).Select
anzahl = Selection.Count

Zahl = 12 ' Monate auf datum addieren
Datum1 = Cells(i, 8) ' Datumsspalte

For i = 2 To anzahl
Cells(i, 6).Formula = DateAdd(IntervallTyp, Zahl, Datum1)
Next i

end sub