Schleife erfasst nicht alle Werte
27.06.2005 17:16:28
maik
ich möchte gerne alle Felder in spalte "K" löschen, die die unten genannten Einträge enthalten. leider überspringt meinen Makro einige Zeilen. Gibt es noch irgend einen Trick der mir erspart das Makro 3mal durchlaufen zu lassen?
Sub delate()
Dim i as Integer
For i = 4 To ActiveSheet.UsedRange.Columns(11).Cells.Count
If Cells(i, 11) = "Bier" Or Cells(i, 11) = "" Or Cells(i, 11) = "Wein" Then
Rows(i).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next i
End Sub
Vielen Dank!
Maik
Anzeige