Vba: so verwenden sie die match-funktion mit datumsangaben

Sie können die folgende Syntax verwenden, um die MATCH-Funktion zum Suchen eines Datums in VBA zu verwenden:

 SubMatchDate ()
    
'attempt to find date in range
On Error GoTo NoMatch
    MyMatch = WorksheetFunction.Match(CLng(CDate(" 4/15/2023 ")), Range(" A2:A10 "), 0)
    MsgBox (MyMatch)
End
    
'if no date found, create message box to tell user
NoMatch:
    MsgBox (" No Match Found ")
End

End:
End Sub

In diesem speziellen Beispiel wird im Bereich A2:A10 nach dem Datum 15.04.2023 gesucht.

Wenn das Datum gefunden wird, wird ein Meldungsfeld angezeigt, das dem Benutzer mitteilt, welche Zeile im Bereich das Datum enthält.

Wenn das Datum nicht gefunden wird, wird ein Meldungsfeld mit der Meldung „Keine Übereinstimmungen gefunden“ angezeigt, sodass der Benutzer weiß, dass das Datum nicht im Bereich vorhanden ist.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Hinweis : Die Funktion CDate konvertiert eine Textzeichenfolge in ein Datum in VBA.

Beispiel: Verwendung der MATCH-Funktion mit Datumsangaben in VBA

Angenommen, wir haben die folgende Liste von Datumsangaben im Bereich A2:A10 in Excel:

Wir können das folgende Makro erstellen, um die Zeilennummer zu finden, die das Datum 15.04.2023 im Bereich A2:A10 enthält:

 SubMatchDate ()
    
'attempt to find date in range
On Error GoTo NoMatch
    MyMatch = WorksheetFunction.Match(CLng(CDate(" 4/15/2023 ")), Range(" A2:A10 "), 0)
    MsgBox (MyMatch)
End
    
'if no date found, create message box to tell user
NoMatch:
    MsgBox (" No Match Found ")
End

End:
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Das Meldungsfeld teilt uns mit, dass in der 7. Zeile des Bereichs A2:A10 das Datum 15.04.2023 gefunden wurde.

Beachten Sie, dass wir bei einer Suche nach dem Datum 25.04.2023 das folgende Ergebnis erhalten würden:

Das Meldungsfeld teilt uns mit, dass das Datum 25.04.2023 nicht im Bereich gefunden wurde.

Hinweis : Die vollständige Dokumentation der Match- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So verwenden Sie XLOOKUP
VBA: So verwenden Sie den Indexabgleich
VBA: So verwenden Sie INDEX MATCH mit mehreren Kriterien