Suche und Springe zu Datum, kleine Ergänzung
25.11.2018 18:51:18
Andy
Private Sub Worksheet_Activate()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("B2:APP2")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
Application.Goto rng, True
Exit Sub
End If
End If
Next
End Sub