Schleife ohne Ende
23.06.2005 10:39:45
Nico
ich habe ein Schleife gebaut. Leider endet sie nicht.
Kann mir jemand sagen, was ich ändern muss?
Sub Zeile_loeschen()
Application.ScreenUpdating = False
Dim i, j As Integer
Do
'Jede Zeile durchlaufen
For i = 2 To 1500
'Jede Spalte durchlaufen
For j = 5 To 5
If Not Cells(i, j) = "SCHLACHTUN" Then
'Zeile markieren
Rows(i & ":" & i).Select
'Zeile löschen
Selection.Delete Shift:=xlUp
'Schleife für diese Zeile abbrechen
End If
Next j
Next i
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Die Schleife soll enden, sobald in der Spalte E (j) nur noch das Wort "SCHLACHTUN" steht.
Danke
Nico