Fehlerbehandlung Application.Match

Hallo
Ich verwende in meinem Coding die Application.Match-Funktion, um nachzusehen, ob gewünschte Werte in einem anderen Tabellenblatt vorhanden sind.
Das Problem ist es jetzt, den Code bei Auftreten eines Fehlers (= Nicht-Finden des entsprechenden Wertes) weiter laufen lassen zu können. Ich habe diverse Einträge in den Foren studiert, dort ist aber meistens die Rede von einer Fehlerausgabe mittels MsgBox oder dem Abbruch der Prozedur.
Genau dies möchte ich aber nicht. Wird ein entsprechender Wert nicht gefunden, soll einfach mit dem Programm weitergefahren werden.
Übrigens: der aufgetretene Fehler ist 1004: ...Match-Eigenschaft... nicht zugeordnet werden.
Wie schaffe ich das?
Danke für eure Unterstützung.
Gruss, Rudi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim a As Variant a = Application.Match("x", Sheets("Tabelle2").Range("A1:A6"), 0) ' sucht x im Bereich If Not IsNumeric(a) Then 'wenn nicht vorhanden dann MsgBox "nicht vorhanden" 'hier kommt dein Code hin Else 'sonst MsgBox "vorhanden" End If

Public Sub WertSuchen() Dim SearchRange As Range Dim TestWert As String Dim myVar As Variant TestWert = Range("B1").Value Set SearchRange = ThisWorkbook.Sheets("Tabelle1").Range("A1:A10") myVar = Application.Match(TestWert, SearchRange, 0) If IsError(myVar) Then MsgBox "der gesuchte Wert " & TestWert & " wurde nicht gefunden!", _ 64, " den gesuchten Wert gibt es nicht." Else MsgBox "der gesuchte Wert " & TestWert & " wurde in Zeile " & myVar & _ " gefunden.", 48, " der Wert wurde gefunden." End If End Sub

…dafür vorgesehenen Container WorksheetFunction (statt Application) machen, Rudi;
dabei bleibt der alte Inhalt einer Variablen (zB 0, -1 bzw Empty) erhalten, wenn man ihr das Ergebnis von WorksheetFunction.Match zuweist, weil Container-Fktt keine Fehlerwerte zurückgeben, sondern ggf höchstens einen Fehler auslösen, der mit On Error Resume Next übergangen wdn kann. Dann kann man allerdings nicht wie bei Application.Match den Fehler mit If IsError(…) Then abfragen, sondern muss fragen, ob der Wert der Variablen noch der Initialwert ist (der natürl entsprd eindeutig gewählt wdn muss). Da CountIf idR keinen Fehler, sondern (wie schon Rudi schrieb) 0 zurückgibt, ist hier die Vwendg von Application anstelle des Containers unnötig, zumal nur das Container-Objekt vom VBE-Intellisense unterstützt wird (Anzeige der Anzahl der mögl Argumente).
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Fehlerbehandlung Application.Match

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

11 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlerbehandlung Application.Match

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

11 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread