Office: Excel VBA suche Problem bei Datum (find Methode)

Hallo zusammen!
Ich bin heute auf ein Thema gestossen das mich ehrlich gesagt an den Rand der Verzweiflung führt!
Ich beabsichtige ein Datum in einer Zeile/ Spalte zu finden, um dann mit der Adresse weiterzuarbeiten.
Bisher war das auch alles kein Problem..., bis heute

Hier die Test Formel in kurz

Code:

Option Explicit
Sub DatumFinden()
Dim rng As Range
Set rng = ActiveWorkbook.ActiveSheet.Rows(1).Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)
Debug.Print rng.Address
rng.Offset(0, 0).Activate
End Sub

Das Ganze ist aus meiner heutigen Erfahrung extrem an das Aussehen gebunden!!
Man verändere die Zelle egal wie => Formatierung, Ausrichtung, Spalte zusammenschieben etc.
Das was vorher noch funktionierte klappt dann nicht mehr (zumindest hier unter Office 2007).
Wie kann man das Problem lösen?

Edit:
Die folgende Lösung ist nur bedingt einsetzbar, da ich Formeln in der Zeile für das Datum verwende, wegen einer eingestellten Dynamic. Also bei Festwerten wäre das eine Lösung

Code:

Set rng = ActiveWorkbook.ActiveSheet.Rows(1).Find(What:=CDate(Date), LookIn:=xlFormulas)

Vielen Dank für die Hilfe!

 

....ich habe eine Lösung für mein Problem gefunden... wenn aber jmd. eine Lösung für die find Methode kennt bin ich absolut offen für jeden Vorschlag.

Lösung:

Code:

Sub Test()
Dim varZ As Variant
varZ = Application.Match(CDbl(CDate("13.01.2015")), ActiveWorkbook.ActiveSheet.Rows(1), 0)
Debug.Print varZ
End Sub