vba Application.Match
09.03.2023 19:19:03
Timm
ich habe einen Kalender erstellt. Nun möchte ich ein Datum mit der Funktion Application.Match () suchen.
Hierzu mein Code:
Sub Kalender_eintrag_suchen()
Dim Kalender As Worksheet
Dim Suche as Variant
Dim Datum As Variant
Set Kalender = Tabelle9
'Datum, das gesucht werden soll
Datum = CDbl(Kalender.Cells(1, 2).Value)
'Der Kalender befindet sich im Bereich A2:G3
Suche = Application.Match(Datum, Kalender.Range("A2:G3"), 0)
End Sub
Leider führt mein Code zum Fehler2042.
Ändere ich den Suchbereich von A2:G3 auf A2:G2 funktioniert der Code.
Was muss ich ändern, damit die Suche klappt?
Danke vorab.
Gruß
Timm