Zelle mit akt. Tagesdatum finden.Makro siehe unten

Sub go_auto_today()
Application.ScreenUpdating = False
For Each a In ActiveSheet.Range("B4:FZ4") 'Bereich des Datums
If a = Date Then
Spalte = a.Column
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(4, Spalte), True
If Err.Number > 0 Then
MsgBox ("Das aktuelle Datum (HEUTE) wurde nicht gefunden.")
End If
Application.ScreenUpdating = True
End Sub