Private Sub Workbook_open
Call gotoDate
End Sub
Sub gotoDate()
Dim rng As Range
Set rng = ActiveSheet.Range("D9:D1224").Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)
'Spalte anpassen
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Das Aktuelle Datum wurde nicht gefunden!", vbExclamation
End If
End Sub