Bitte noch einmal...

Von Nepumuk hatte ich einen schönen Code der auch funktioniert.

Sub AktuellesDatum()
Dim c As Range
Set c = Range("C16:C46").Find(Date)
If Not c Is Nothing Then Cells(c.Row, c.Column + 1).Select
End Sub

Nur wenn ich bei dem folgenden Code eine Suchanfrage nach dem aktuellen Datum stelle und sich in "C22" eine Formel befindet "=$A$1" (in "A1" befindet sich das aktuelle Datum) findet er das Datum nicht.

Kann mir jemand helfen? Habe schon die ganze Nacht in meiner Nachtschicht damit verbracht und keine Lösung gefunden.

Gruß
Felix