Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Match-Fehler abfangen

Forumthread: Match-Fehler abfangen

Match-Fehler abfangen
Eddi
Hallo zusammen,
ich habe über VBA eine Match-Funktion erstellt, die mir in einem Sheet die erste Zeile nach einem bestimmten Benutzernamen durchsuchen soll. Wenn nichts gefunden wurde bekomm ich derzeit eine Fehlermeldung und das Programm stürzt ab. Wie kann ich das umgehen? Noch zur Info, wenn nichts gefunden wurde, soll in der Zelle rechts nebem dem letzten Eintrag der aktuelle Benutzer eingetragen werden. Die Variable UserNr gibt mir normalerweise die Spalte zurück mit der ich dann weiterarbeite.
Dim UserNr as Integer
Dim User as String
User = "Mustermann"
UserNr = Application.WorksheetFunction.Match(user, Sheets("User").Range("A1:Z1"), 0)
.....
Vielen Dank für Eure Hilfe
Eddi
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Match-Fehler abfangen
11.05.2011 00:12:45
hary
Moin Eddi
als Ansatz. 

Dim UserNr As Integer
Dim User As String
On Error GoTo nix
User = "Mustermann"
UserNr = Application.WorksheetFunction.Match(User, Sheets("User").Range("A1:Z1"), 0)
MsgBox UserNr
nix:
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username")
gruss hary
Anzeige
AW: besser mit find
11.05.2011 00:28:21
hary
Hallo
Mit find geht's ohne Fehlerbehandlung. 

Dim zelle As Range
Dim UserNr As Integer
Dim User As String
User = "Mustermann"
Set zelle = Worksheets("User").Range("A1:Z1").Find(What:=User, LookIn:=xlValues, lookat:= _
xlWhole)
If Not zelle Is Nothing Then
UserNr = zelle.Column
Else
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username" _
)
End If
Set zelle = Nothing

gruss hary
Anzeige
AW: besser mit find
11.05.2011 00:37:48
Eddi
Super, vielen Dank.
MfG
besser mit Mach
11.05.2011 08:39:41
Erich
Hi zusammen,
auch mit Match gehts ohne Fehlerbehandlung: 

Sub aaaTest()
Dim strUser As String
Dim varZ As Variant, lngC As Long ' besser als Integer
strUser = "Mustermann"
With Sheets("User")
varZ = Application.WorksheetFunction.Match(strUser, .Range("A1:Z1"), 0)
MsgBox varZ
If Not IsNumeric(varZ) Then
lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
.Cells(1, lngC) = Environ("Username")
End If
End With
End Sub
Noch eine Bemerkung zur Referenzierung: In der Zeile
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ(
beziehen sich Cells und Columns.Count in "Cells(1, Columns.Count)" auf das gerade aktive Blatt.
Sheets("User") steht zwar am Anfang der Zeile, bezieht sich aber nur auf das 1. Cells.
Da ist ein With meist sehr praktisch.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
besser mit Application.Match - Korrektur
11.05.2011 09:03:16
Erich
Hi zusammen,
wie Rudi schon schrieb: Besser ohne WorksheetFunction, also mit
varZ = Application.Match(strUser, .Range("A1:Z1"), 0)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW:@ Erich
11.05.2011 10:48:38
hary
Moin Erich
ja, hast Recht. Hatte zwei Codes, auch einmal mit with. Dann zwischendurch was anderes probiert und falschen Code gepostet
Leicht uebermuedet .
sry gruss hayr
Anzeige
Application.Match
11.05.2011 08:56:57
Rudi
Hallo,
am besten ohne Worksheetfunction 
Dim UserNr as Variant
Dim User as String
User = "Mustermann"
UserNr = Application.Match(user, Sheets("User").Range("A1:Z1"), 0)
If Not IsError(UserNr) Then
End If

Gruß
Rudi
AW: Application.Match
11.05.2011 22:41:11
Eddi
Warum eigentlich ohne WorksheetFunktion? Gibt's da irgendein Unterschied?
Gruß, Eddi
Anzeige
AW: Unterschied
12.05.2011 11:40:22
Rudi
Hallo,
ja, den gibt es.
x=Worksheetfunction.Match(...) ergibt einen Laufzeitfehler 1004, wenn der Suchbegriff nicht gefunden wird (Die Match-Eigenschaft des Worksheetfunction-Objekts kann nicht zugewiesen werden). Das kannst du nur mit On Error abfangen.
x=Application.Match(...) hingegen weist x den Fehlerwert (Fehler 2042) zu. Das kannst du dann abfragen.
If IsError(x) Then ...
Dito für VLOOKUP, HLOOKUP,..
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

WorksheetFunction Match ?
chrissey

Hallo Leut,
versuche einer Variable den Wert der WF.Match zu zuweisen.
e = Application.WorksheetFunction.Match(so, Sheets("WeNr").Range("A2:A4"), 0)
Funktioniert aber nicht, weiss jmd warum ?
p.s.: Habe e als variant definiert, ist integer besser?
Grüße & viele Dank scho...
30.03.2010 09:40:59
Thread-ID: 1149296
4 Beiträge
Worksheetfunction.match
volti

Hallo Forumsmitglieder,
ich benutze in meinen Reports immer gerne die Worksheetfunction.Match, um schnell Suchbegriffe in Bereichen zu suchen. Da die Funktion bei nicht vorhandenen/ nicht gefundenen Suchbegriffen einen Fehler verursacht, mache ich das z.B. so:
on error resume next
g...
14.05.2010 12:47:54
Thread-ID: 1157041
6 Beiträge
Fehler bei WorksheetFunction.Match
Michael2010

Hallo allerseits,
ich verzweifel hier bald. Wir haben letzte Woche auf Office 2010 umgestellt und jetzt bleibt eine GANZ Wichtige Tabelle bei folgenden Code hängen
test = WorksheetFunction.Match(i, ArrKW)
Die Dimensonierung
ArrKW = Variant
i = integer, weil es ein Zähler ist...
05.04.2012 08:49:40
Thread-ID: 1257980
5 Beiträge
VBA Fehler abfangen
Peter

Guten Tag an alle Forumsteilnehmer,
ich habe ein kleines Problem mit folgendem Code.
ActiveSheet.Shapes("AutoShape 1").Rotation = Range("A1").Value
Wie schalte ich die Fehlermeldung aus, wenn Zelle A1 leer ist.
Würde mich freuen, wenn Ihr mir weiterhelfen könntet.
Vielen Dan...
03.03.2013 14:33:27
Thread-ID: 1302021
5 Beiträge
VBA - Fehler in Unterprogramm abfangen
Max

Hallo liebe Community,
ich habe ein kleines VBA - Problem.
Über einen Button lasse ich verschiedene Programm nacheinander ablaufen.
Private Sub Aktualisieren_Click() Call Copytest Call TextAendern Call DatenKopierenIgnorNeu Call TextAendernIgnorMeld Call DatenKopierenSperrNeu Call...
11.07.2013 08:47:18
Thread-ID: 1321968
4 Beiträge
Anzeige
VBA Application.WorksheetFunction.Median
Lolaley

Hallo,
Ich wollte mir gern von untereinandergeschriebenen Daten pro Monat (hier jetzt nur die mit 31 Tagen) die Mediane ausrechnen lassen. Dabei kommt jetzt aber immer die Fehlermeldung:
"Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Ich schätze mal, die...
11.11.2014 14:45:27
Thread-ID: 1391676
6 Beiträge
Application.WorksheetFunction.Match
Christoph

Hallo und einen schönen Abend
Meine Excel/VBA Kenntnisse reichen leider wieder einmal nicht aus und so hoffe ich auf Hilfe im Forum:
Ich habe in der Spalte A Datumswerte eingetragen.
10.10.2015
20.12.2016
30.12.2016
31.12.2016
12.01.2017
04.02.2017
06.03.2017...
15.05.2017 19:43:18
Thread-ID: 1558489
4 Beiträge
VBA, WorksheetFunction.SearchB
Rainer Quaas

Hallo Excel-User,die Häufigkeit (H) wie oft String1 in String2 vorkommt, wobei String1 * oder ? als Wildcard enthalten kann, wird durch folgende Funktion berechnet:H = Application.WorksheetFunction.SearchB(String1 , String2 , 1)Bei einer Zeichenanzahl > 32.0000 von String2 ist diese Formel nich...
04.04.2003 11:23:40
Thread-ID: 240294
4 Beiträge
VBA - Application.WorksheetFunction.Index
Markus
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und...
29.10.2003 10:16:39
Thread-ID: 330289
4 Beiträge
Anzeige
VBA - Application.WorksheetFunction.Index die 2.te
Markus S.
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und v...
29.10.2003 13:06:21
Thread-ID: 330461
4 Beiträge
VBA-Fehlermeldung abfangen...
Ina
Hallo Forum,
einen schönen Montagmorgen wünsche ich in die Runde!
Ich habe ein kleines Problem...
In Tabelle1 werden abhängig vom Inhalt der Zellen B9:B39 per rechtem Mausklick eine UserForm (AUSWAHL_1 oder AUSWAHL_2) mit ListBox zur Auswahl von Werten geöffnet.
Enthält die Zelle E4...
01.03.2004 10:40:07
Thread-ID: 390692
7 Beiträge
Anzeige
Fehler bei WorksheetFunction.Match
Steffi

Hallo zusammen,
ich habe die Funktion "WorksheetFunction.Match" benutzt, um ein Wort zu finden.
Mein Problem ist nun, dass das Programm abbricht, sobald das Wort nicht gefunden wird ("unable to get the match property...")
so sieht der Code derzeit aus:
i = WorksheetFunction.Match(...
30.09.2005 16:45:46
Thread-ID: 675212
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Match-Fehler in Excel VBA abfangen

Schritt-für-Schritt-Anleitung

Um einen Match-Fehler in Excel VBA abzufangen, kannst Du folgende Schritte befolgen:

  1. Definiere die Variablen:

    Dim UserNr As Variant
Dim User As String
User = "Mustermann"

  2. Verwende die Application.Match Methode:

    UserNr = Application.Match(User, Sheets("User").Range("A1:Z1"), 0)

  3. Fehlerbehandlung einfügen:

    If Not IsError(UserNr) Then
   MsgBox UserNr
Else
   Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username")
End If

  4. Schlussfolgerung: Jetzt wird, wenn der Benutzername nicht gefunden wird, der aktuelle Benutzer in die Zelle rechts vom letzten Eintrag eingetragen.

Häufige Fehler und Lösungen

  • Fehler 2042: Dies tritt auf, wenn die Match-Funktion keinen Wert findet. Um diesen Fehler zu vermeiden, verwende die IsError-Funktion, wie im obigen Beispiel gezeigt.

  • Laufzeitfehler 1004: Dieser Fehler kann auftreten, wenn Du die WorksheetFunction.Match verwendest und der Suchbegriff nicht gefunden wird. Nutze stattdessen Application.Match, um diesen Laufzeitfehler zu vermeiden.

Alternative Methoden

  • Verwendung von Find: Eine alternative Methode zur Match-Funktion ist die Find-Funktion. Diese Methode funktioniert ohne Fehlerbehandlung: 
    Dim zelle As Range
Set zelle = Worksheets("User").Range("A1:Z1").Find(What:=User, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
   UserNr = zelle.Column
Else
   Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username")
End If

Praktische Beispiele

Hier sind einige praktische Beispiele für die Verwendung der Match-Funktion in Excel VBA:

  1. Einfaches Beispiel:

    Sub BeispielMatch()
   Dim UserNr As Variant
   Dim User As String
   User = "Mustermann"
   UserNr = Application.Match(User, Sheets("User").Range("A1:Z1"), 0)

   If Not IsError(UserNr) Then
       MsgBox "Benutzer gefunden in Spalte: " & UserNr
   Else
       MsgBox "Benutzer nicht gefunden."
   End If
End Sub

  2. Mit Fehlerbehandlung:

    Sub BeispielMitFehlerbehandlung()
   Dim UserNr As Variant
   Dim User As String
   User = "Mustermann"

   On Error Resume Next
   UserNr = Application.WorksheetFunction.Match(User, Sheets("User").Range("A1:Z1"), 0)
   On Error GoTo 0

   If IsError(UserNr) Then
       MsgBox "Benutzer wurde nicht gefunden. Fehler 2042."
   End If
End Sub

Tipps für Profis

  • Verwende Application.Match statt WorksheetFunction.Match, um Laufzeitfehler zu vermeiden und um den Fehlerwert 2042 abzufangen.

  • Nutze Option Explicit am Anfang Deiner Module, um sicherzustellen, dass Du alle Variablen deklarierst. Dies hilft, Fehler frühzeitig zu erkennen.

  • Verwende With-Anweisungen, um den Code lesbarer zu gestalten und redundante Verweise zu vermeiden:

    With Sheets("User")
   ' Dein Code hier
End With

FAQ: Häufige Fragen

1. Warum sollte ich Application.Match anstelle von WorksheetFunction.Match verwenden?
Application.Match gibt im Fehlerfall den Fehlerwert 2042 zurück, während WorksheetFunction.Match einen Laufzeitfehler 1004 verursacht. Dies ermöglicht eine einfachere Fehlerbehandlung.

2. Was bedeutet Fehler 2042 in Excel VBA?
Fehler 2042 tritt auf, wenn ein Wert nicht gefunden wird, und ist das Ergebnis der Match-Funktion. Um diesen Fehler zu behandeln, kannst Du die IsError-Funktion verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige