With ActiveCell
If Worksheets("WERBER_Ueberschriften").Columns(5).Find(What:=.Offset(, -1).Value, LookAt:=xlWhole, SearchDirection:=xlNext).Row Is Nothing Then
mach dies
Else
mach das
End With
Gebe ich nur
Worksheets("WERBER_Ueberschriften").Columns(5).Find(What:=.Offset(, -1).Value, LookAt:=xlWhole, SearchDirection:=xlNext).Row
auf und mache die if Abfrage nicht, kommt der Abbruch nicht. Ich brauche die Prüfung aber in der folgenden Verarbeitung.
Gruß Martin