Supportnet / Forum / Tabellenkalkulation

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

Hallo,

ohne genauere Prüfung, aber


in der unterstrichenen Zeile kennt das Makro i noch nicht
So müsste es besser gehen

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

Gruß

Helmut

danke helmut,
für den fehler hinweis

gruss, IntelP

• auf Datum immer ganze Jahre addieren
• Zellen in Spalte A vergleichen und bei Übereinstimmung Werte aus Spalte B addieren
• Gerundete Werte addieren
• In Exel 360 Monate zu einem Datum addieren
• Werte einer spalte per VBA addieren