Mehrere Wörter suchen und Zeile löschen
21.10.2016 16:14:18
Sabrina
ich habe in der Spalte G Codierungen stehen. Jetzt möchte ich Zeilen löschen, in denen eines der zu suchenden WÖRTER drinsteht.
Ich habe auch schon ansatzweise das richtige Makro gefunden, aber es sucht nur nach einem Wort:
Code: Alles auswählen
Sub Unnoetige_Zeilen_loeschen()
Dim i As Long
Dim letzteZeile As Long
Dim suchBereich As Range
Dim gefunden As Range
Dim ersterTreffer As String
Dim suchWert As String
suchWert = "256" 'hier kommt dein Suchwert rein
With ThisWorkbook.Sheets("Tabelle1")
letzteZeile = .Range("G" & Rows.Count).End(xlUp).Row
Set suchBereich = .Range("G1:G" & letzteZeile)
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
If Not gefunden Is Nothing Then
ersterTreffer = gefunden.Address
Do
gefunden.Activate
ActiveCell.EntireRow.Delete shift:=xlUp
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
Loop While Not gefunden Is Nothing
End If
End With
End Sub
Jetzt ist es nur so, dass ich gerne gleich mehrere Suchwerte abdecken möchte, also nicht nur 256 sondern auch zum Beispiel 274 und 264.
Wie kann ich das realisieren? Danke für eure Hilfe!