makroabbruch bei 2. Fehlermeldung
12.11.2008 13:40:00
marcl
ich möchte 2. Begriffe suchen lassen, die aber nicht immer in der Tabelle vorhanden sein müssen. Wenn beide Begriffe nicht vorhanden sind, bricht das Makro ab. Was mach eich falsch?
Sub suchen()
On Error GoTo weiter:
Cells.Find(What:=suchbegriff1, after:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
zielrow = ActiveCell.Offset(3, 0).Row
Rows("1:" & zielrow).Delete Shift:=xlUp
On Error GoTo 0
weiter:
' Vorspalte löschen, wenn vorhanden
On Error GoTo weiter2
Cells.Find(What:=suchbegriff2, after:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Columns(ActiveCell.Column).Delete Shift:=xlToLeft
On Error GoTo 0
weiter2:
End Sub
Danke für jegliche Hilfe
Gruß
marcl