Du löst den Code doch durch irgendein Worksheet Event oder innerhalb einer Userform aus, oder? Doppelklick oder sowas?
Kannst du mal den gesamten aktuellen Code mit der dazugehörigen Prozedur posten?
Wenn mehr End If's eingebaut hast als in meiner Vorlage und innerhalb meiner Vorlage, kann das eigentlich nicht zum gewünschtem Ergebnis führen...
Du kannst auch wieder:
on error resume next
Set rngBereich = wsZwei.Cells.Find(What:=sWert, LookIn:=xlValues, LookAt:=xlPart)
on error goto 0
einbauen. Aber es dürfte eigentlich nur dann zu einem Fehler kommen wenn sWert eine Fehlermeldung enthält (z.B. "#Wert"), was durch "if not iserror(swert)" ausgeschlossen wird. Ansonsten kann es eigentlich nurnoch daran liegen, dass du Excel 2010 benutzt und die Such-Funktion da so nicht mehr funktioniert (ich benutze 2003).
|