Hallo zusammen,
mit folgendem Code lösche ich die gesamte Zeile wenn das gesuchte Wort in einer Spalte vorkommt:
With Columns("G")
Do
Set objCell = .Find(What:="Round", LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
objCell.EntireRow.Delete Shift:=xlUp
Else
Exit Do
End If
Loop
End With
Kann ich diesen Code auch benutzen wenn ich mehrere Wörter in der Spalte suchen lassen will um bei Treffern die gesamte Zeile zu löschen. Und wenn ja wie müsste der Code umgeschrieben werden. Oder muss ein anderer Ansatz her?
Vielen Dank vorab!
Gruß
Michael