mit nachfolgendem Corde entferne ich derzeit Zeilen, die einen bestimmten Namen enthalten:
Sub OTTO_entfernen()
Range("A1").Select
Cells.Find(What:="OTTO", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Range("A1:F1").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-200
End Sub
Wenn aber OTTO nicht vorhanden ist, kommt eine Fehlermeldung.Wie kann ich das umgehen bzw. eine MsgBox bekommen?
Danke schon mal - Erwin