Hi,
beachte, dass beim Suchen mit Find der Parameter LookIn:=xlFormulas angegeben werden muss, wenn man in (fix eingetragenen) Werten sucht und LookIn:=xlValues wenn es sich um Datumswerte handelt, welche per Formel berechnet sind - das klingt zwar unlogisch, ist aber so. Außerdem wird mit Find ein Datum oft nicht gefunden, wenn ein benutzerdefiniertes Zellformat verwendet wird.
Benutze deshalb anstelle Find besser Application.Match:
Dim varSpalte As Variant
varSpalte = Application.Match(Rows(4), arrWerte(0, i), 0)
If IsNumeric(varSpalte) Then
' Datum wurde gefunden
Else
' Datum nicht gefunden
End If
Bis später, Karin