Anzeige
Archiv - Navigation
236to240
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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Match: Fehlermeldung auffangen

Match: Fehlermeldung auffangen
01.04.2003 13:21:52
Markus
Hallo,

ich suche etwas, mit Match mit dieser Zeile in der Spalte B:

myVar = Application.WorksheetFunction.Match("etwas", Worksheets(1).Range("B1:B10"), 0)

Das ist sehr schön, wenn Excel etwas findet, ich bekomme, die
Zeilenzahl heraus. Aber: Excel produziert eine Fehlermeldung, wenn es kein Match findet. Weiss jemand, wie man das auffangen kann? Wenn kein Match gefunden wird, ist das auch OK in dieser Anwendung. Ausserdem ist sichergestellt, von den Daten, dass nur ein einziger Match gefunden werden kann.

Danke, Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Match: Fehlermeldung auffangen
01.04.2003 13:29:44
Felix

Hallo Markus,
hier mein Tipp:

Sub test()
On Error GoTo ENDE
myvar = Application.WorksheetFunction.Match("etwas", Worksheets(1).Range("B1:B10"), 0)
Exit Sub
ENDE:
MsgBox ("kein Wert gefunden")
End Sub

ODER

Sub test()
On Error GoTo ENDE
myvar = Application.WorksheetFunction.Match("etwas", Worksheets(1).Range("B1:B10"), 0)
ENDE:
Exit Sub
End Sub

Gruß
Felix

Re: so gehts auch noch...
01.04.2003 13:39:51
Felix

Hallo Markus,
so gehts natürlich auch noch.

falls du nach dieser Zeile weitere anweisungen hast....


Sub test()
On Error Resume Next
myvar = Application.WorksheetFunction.Match("etwas", Worksheets(1).Range("B1:B10"), 0)
End Sub

Gruß
Felix

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige