hallo Gunter,
leider finde ich den Orginal-Thread nicht mehr, weshalb ich einen neuen aufmache. Beim nachfolgenden Makro habe ich Fehlermeldungen, die ich anschließend beschreibe. Wer kann mir helfen?
Sub go_auto_today()
'Dim a As Object
'Dim Spalte As ObjectApplication.ScreenUpdating = False
For Each a In ActiveSheet.Range("A6:b6") 'Bereich des Datums
If a = Date Then
Spalte = a.Column
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(12, Spalte), True
If Err.Number <> 0 Then
MsgBox ("Das aktuelle Datum (HEUTE) wurde nicht gefunden.")
End If
Application.ScreenUpdating = True
End Sub
Code eingefügt mit: Excel Code Jeanie
ergänzt wurde von mir: Dim a As Object; Dim Spalte As Object:
Fehlermeldung = Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt und Spalte = a.Column wird gelb hinterlegt
ohne die Ergänzungen waren die Fehlermeldungen = Variable nicht definiert bei "a" und "Spalte"
Vielen Dank!
mfg
Erich