Wie muss das Makro verändert werden,das man das Datum auch in diesem Format finden kann ? (TTT.TT.MM.JJ).
Public Sub FindCurrentDate()
Dim rngArea As Range
' Aktuelles Datum suchen
Set rngArea = _
Worksheets("Einteilung April").Range("B1:BK1").Find(What:=Date, _
LookIn:=xlValues)
' Prüfung, ob gesuchter Wert gefunden wurde
If Not rngArea Is Nothing Then
' Nebenzelle der Fundzelle markieren
rngArea.Offset(0, 0).Select
Else
' Datum wurde nicht gefunden
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
End Sub
Gruss Rolf