datum wieder auf 01.02.2021 und Zellformat nicht Text sondern Datum.
Dim result result = Application.Match(CDbl(CDate(S)), bereich, 0)
ergibt result = 12