Zelle mit heutigem Datum finden
05.09.2008 11:46:00
Steffi
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt Ihr mir da helfen ?
Lieben Gruß
Steffi
Sub Heutige_Datum_finden()
'Findet die Zelle mit dem heutigen Datum ()
Dim rg As Range
Set rg = ActiveSheet.Columns("F:F").Find(Date, , xlFormulas)
If Not rg Is Nothing Then
rg.Activate
Else
MsgBox "Datum " & Date & " leider nicht gefunden"
End If
Set rg = Nothing
End Sub