Datum mittels VBA finden
Lorenz
Ich möchte das Datum aus wksWE.Cells(2, 2) in wksKalender.Range("H12:ABJ12") suchen, anschließend die Adresse des "gefundenen" anzeigen. Mit dem unten eingefügten Code wills leider nicht.
Dim rngSuchDatum As Range, datDatum As Date
datDatum = CDate(wksWE.Cells(2, 2))
Set rngSuchDatum = wksKalender.Rows(12).Find(CDate(datDatum), lookat:=xlWhole)
MsgBox rngSuchDatum.Address
(wks... sind jeweils CodeName der Sheets)
Was ist am Code falsch?
Gruß
Lorenz