Zeile löschen
14.05.2007 15:37:08
Gregor
Mit folgendem Beispiel lassen sich in Spalte E schnell alle Zeilen löschen, die in Spalte E eine 4 enthalten.
Folgen unmittelbar zwei oder drei Zeilen mit einer 4 nacheinander. wird jeweils eine Zeile ausgelassen (vermutlich wegen Next c. Wie kann ich das verhindern?
Sub Löschen()
Dim c As Range
Dim Zeile As Integer
Application.ScreenUpdating = False
For Each c In Columns(5).SpecialCells(xlCellTypeConstants)
If c Like "4" Then
Zeile = c.Row
Rows(Zeile).Delete
End If
Next c
Application.ScreenUpdating = True
End Sub
Danke und Gruss
Gregor