Office 2016 Datum in Spalte suchen und Zeilennummer ausgeben

[StefKe]

Hallochen allerseits, ich habe wiedermla Tomaten auf den Augen und kann den Fehler nicht finden:

Code: [Auswählen]

Sub ZeileFinden()
Dim Datum, Zeile, wksKalender
Set wksKalender = Worksheets(1)
Datum = DateSerial(2018, 5, 1)
Zeile = Application.WorksheetFunction.Match(Datum, wksKalender.Range("B3:B160"), 0)
End Sub

Sub ZeileFinden1()
Dim Datum, Zeile, wksKalender
Set wksKalender = Worksheets(1)
Datum = DateSerial(2018, 5, 1)
  Zeile = wksKalender.Columns("B3:B160").Find(What:=Datum, After:=ActiveCell, LookIn:=xlValues, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Row
End Sub

Kann bitte wer helfen, wo liegt der Fehler?

Danke
Stefan

[StefKe]

Ich habe mal ne Beispieldatei angehängt...
Hab grad gefunden das die unterschiedliche Formatierung das Problem ist. In Spalte A: d-mmm
und DateSerial: m/d/yyyy.


Danke