Verschachtelte For-Next Schleife
11.02.2018 19:53:26
Norbert
ich bekomme eine verschachtelte For-Schleife nicht zum laufen und hoffe das mir jemand helfen kann.
Ausgangssituation:
In Spalte C stehen Datumsangaben welche überprüft werden. Ist das Datum älter als zwei Monate, wird ab Spalte R bis zur letzten befüllten Spalte alle Formeln durch feste Werte ersetzt.
Mein Konstrukt sieht bis jetzt so aus, funktioniert jedoch leider nicht:
Sub Formeln()
Dim AktuellesDatum, Zieldatum As Date
With ActiveWorkbook.Sheets(2) 'Ermittle aktuelles Datum -2 Monate
JuengsteDatum = CDate(.Range("C" & Rows.Count).End(xlUp).Cells.Value)
Zieldatum = (DateAdd("m", -2, AktuellesDatum))
End With
With ActiveWorkbook.Sheets(2) 'Durchlaufe C und entformel wenn nötig ab R
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3)
Weiß jemand Rat?Beste grüße
Norbert