On Error Resume Next
Cells.Find(What:="Rückfragen", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Hallo,
wenn mir da jemand helfen könnte, diesen Befehl mehrmals wiederholen zu lassen, wäre ich sehr dankbar.
mfg
Lena