Zelle mit Datum (Heute) finden.
Micha
ich benutze folgenden Code um die Zelle mit dem heutigen Datum zu finden:
Sub Grafik1_Klicken()
Dim rg As Range
Set rg = ActiveSheet.Columns("C:C").Find(Date, , xlValues)
If Not rg Is Nothing Then
rg.Activate
Else
MsgBox "Datum " & Date & " leider nicht gefunden"
End If
Set rg = Nothing
End Sub
Das funktioniert soweit Prima.Allerdings nicht wenn die Zellen im Format: TTTT - TT. MMMM formatiert sind.
Kann mir BITTE jemand weiterhelfen?
1.000 Dank
Micha