Loop Schleife
18.10.2012 14:58:30
Maximilian
Warum funktioniert diese Schleife nicht?
i = 1
With Sheets("Tabelle1")
Do
i = i + 1
If .Cells(i, 20).Value > "08.10.2012" Then
.Rows(i).Delete
End If
Loop Until i End With
Ich möchte Ab Zeile 2 (Zeile 1 ist Bezeichnung) alle Datensätze durchsuchen. Wenn ein Datum Größer ist als 08.10.2012 soll die Zeile komplett gelöscht werden.
Also er geht in Zeile 2, prüft, wenn positiv, wird gelöscht, wenn negativ, springt er in zeile 3 usw.
Weiß jemand Rat?