Application.match / Suchergebnis Zelle

Guten Abend zusammen,

ich habe mir in Excel einen Kalender erstellt. Nun möchte ich in diesem Kalender nach einem Datum suchen und falls dieses gefunden wird soll Excel mir die Zelladresse des Suchergebnisses ausgeben.

Das funktioniert auch soweit nur liefert Application.match() als Ergebnis nur die Position des Suchbegriffes in der Matrix.

Nachfolgend findet ihr den Programmcode sowie eine Beispieldatei unter folgendem Link https://www.herber.de/bbs/user/158690.xlsm:

Sub Datum_suchen()
Dim Kalender As Worksheet
Dim Suche As Variant
Dim Datum As Long
Dim a As Integer, b As Integer, c As Integer

Set Kalender = Worksheets("Tabelle1")

Datum = CLng(Kalender.Range("J2").Value)

For a = 3 To 8 Step 1

Suche = Application.Match(Datum, Kalender.Range(Cells(a, 2), Cells(a, 8)), 0)
   
    If IsError(Suche) Then
        GoTo Line1
    Else: GoTo Line2
    
    End If
Line1:
Next a

Line2:
    Debug.Print Suche
End Sub