Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verschachtelte For-Next Schleife

Verschachtelte For-Next Schleife
11.02.2018 19:53:26
Norbert
Hallo,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschachtelte For-Next Schleife
11.02.2018 19:57:19
Norbert
Nachtrag, da man hier (anscheinend) leider nicht editieren kann:
Es hat sich ein Fehler eingeschlichten, ist es natürlich:
AktuellesDatum = CDate(.Range("C" & Rows.Count).End(xlUp).Cells.Value)
In der vierten Codezeile.
Beste Grüße
Norbert
AW: Verschachtelte For-Next Schleife
11.02.2018 20:16:25
Gerd
Hallo Norbert,
teste mal.
Sub Formeln()
Dim JuengsteDatum As Date, Zieldatum As Date, i As Long
With ActiveWorkbook.Sheets(2) 'Ermittle aktuelles Datum -2 Monate
JuengsteDatum = CDate(.Range("C" & Rows.Count).End(xlUp).Cells.Value)
Zieldatum = (DateAdd("m", -2, JuengsteDatum))
'Durchlaufe C und entformel wenn nötig ab R
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3) 

Gruß Gerd
Anzeige
AW: Verschachtelte For-Next Schleife
11.02.2018 20:52:38
Norbert
Hallo Gerd,
es kommt die folgende Fehlermeldung:
Userbild
Userbild
Beste Grüße
Norbert
AW: Verschachtelte For-Next Schleife
11.02.2018 21:22:24
Gerd
Hallo Norbert,
nächster Versuch. :-)
Sub Formeln_2_()
Dim JuengsteDatum As Date, Zieldatum As Date, i As Long
With ActiveWorkbook.Sheets(2) 'Ermittle aktuelles Datum -2 Monate
JuengsteDatum = CDate(.Range("C" & Rows.Count).End(xlUp).Cells.Value)
Zieldatum = (DateAdd("m", -2, JuengsteDatum))
'Durchlaufe C und entformel wenn nötig ab R
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3) 

Gruß Gerd
Anzeige
AW: Verschachtelte For-Next Schleife
11.02.2018 21:44:09
Norbert
Hallo Gerd,
Danke, das läuft 1a! :-)
Könntest Du mir freundlicherweise erläutern, was in dieser Anweisung genau passiert bzw. weshalb Du auf eine zweite For-Anweisung verzichten konntest?:
With .Range(.Cells(i, 18), .Cells(i, Application.Max(18, .Cells(i, .Columns.Count). _
End(xlToLeft).Column)))
Ich habe immer noch Probleme damit, bei VBA solche verschachtelten Konstrukte zu bauen.
Vielen Dank und beste Grüße
Norbert

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige