Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Selection Find - Wenn nichts gefunden wurde...

Selection Find - Wenn nichts gefunden wurde...
04.09.2003 09:16:13
Rolf
Hallo Kollegen,

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


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selection Find - Wenn nichts gefunden wurde...
04.09.2003 09:21:29
junny
Hey Rolf,
ich denke so ~ müsst`s klappen

If what = <> z Then msgbox "Name nicht gefunden"
AW: Selection Find - Wenn nichts gefunden wurde...
04.09.2003 10:04:34
Rolf
Klappt leider noch nicht so, wie es soll!

Hast du oder jemand anderes noch eine andere Lösung?

Danke!

Rolf
AW: Selection Find - Wenn nichts gefunden wurde...
04.09.2003 10:04:30
BerndE
Hi Rolf,

ein bisschen umständlich, aber es scheint zu funzen:

If Not Selection.Find(What:=z, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False) Is Nothing Then
Selection.Find(What:=z, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Else
MsgBox ("Name nicht gefunden")
End If

Gruß
Bernd

www.bernds.page.de.vu
Anzeige
AW: Bernd ! Danke, funzelt! o.T.
04.09.2003 10:16:50
Rolf
.

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige