Selection Find - Wenn nichts gefunden wurde...
04.09.2003 09:16:13
Rolf
Nun, ich bin an einem Makro. Ein Teil daraus lautet:
z = ActiveCell
Range("J17:J65").Select
Selection.Find(What:=z, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Dieser Teil funktioniert, indem er aus einem Bereich ein Namen sucht. Wenn er aber den Namen nicht findet, bricht er das Makro mit der Meldung "Objektvariable nicht deffiniert" ab. (Also z= Nicht deffiniert).
Frage: Kann ich den Abbruch mit einer schönen If then verpakung verhindern, so mit MsgBox "Name nicht gefunden"? Wie lautet der String für die Abfrage?
Danke für eure Antworten!
Rolf