Hallo,
mit folgendem Code lösche ich alle Zeilen wo der Wert "xyz" in der Spalte F vorkommt:
With Columns("F")
Do
Set objCell = .Find(What:="xyz", LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
objCell.EntireRow.Delete shift:=xlUp
Else
Exit Do
End If
Loop
Wie müsste ich den Code denn anpassen wenn ich alle Zeilen löschen wollte die nicht "xyz" enthalten? Am besten in einer Range, da er wahrscheinlich auch die Header mit löscht :O
Gruß
Michael