Hi,
z.B. so:
Sub ZeilenLoeschen()
Dim lngLetzte As Long
Dim rngSuche As Range
Dim varSuche
lngLetzte = Columns(2).Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
varSuche = Application.InputBox("Suchwort", "Suche")
If varSuche <> False Then
Set rngSuche = Columns(2).Find(varSuche, lookat:=xlWhole, LookIn:=xlValues)
If Not rngSuche Is Nothing Then Range(rngSuche.Offset(1, 0), Cells(lngLetzte, 2)).EntireRow.Delete
End If
End Sub
Bis später, Karin