@Notet: Zeilen löschen
20.09.2013 20:56:05
Dieter(Drummer)
habe ein Makro von Nonet im Netz gefunden und such die Nöglichkeit, nicht nur nach einem SUCHBEGRIFF zu suchen unddie Zeile dann löschen, sondern es sollen nach mehreren Suchbegriffen gesucht und dann gelöscht werden. Hier ist das Makro von Nonet und suche eine Anpassung:
Sub BegriffSuchenUndZeilenLoeschen()
'01.06.2007, NoNet / 29.07.2007
'Sucht in Spalte A nach bestimmten Inhalten und
'löscht die entsprechenden Zeilen komplett
Dim Suchbegriff As String, Spalte As String
Dim Zeilen As Range, ersteZelle As Range, Zelle As Range
Spalte = "A" 'In dieser Spalte wird gesucht
Suchbegriff = "löschen" 'Falls nur Zeilen mit einem bestimmten Wert gelöscht _
werden soll
Set ersteZelle = Columns(Spalte).Find(Suchbegriff, LookAt:=xlWhole)
If ersteZelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden !"
Else
Set Zeilen = ersteZelle
Set Zelle = ersteZelle
Do
Set Zelle = Columns(Spalte).FindNext(after:=Zelle)
If Not Zelle Is Nothing Then
Set Zeilen = Union(Zeilen, Zelle)
End If
Loop Until Zelle.Address = ersteZelle.Address
If MsgBox("Folgende Zeilen KOMPLETT löschen ?" & vbLf & vbLf & Zeilen.Address, _
vbYesNo + vbQuestion, "Gefundene Zellen") = vbYes Then
Zeilen.EntireRow.Delete
End If
End If
End Sub
Es sollen alle mehrere Suchbegriffe möglich sein, am besten wäre natürlich, wenn der jeweilige Suchbegriff per Eingabebox eingegeben werden könnte,
Würde mich sehr über eine Hilfe freuen und danke für Bemühungen.
Gruß, Dieter(Drummer)