gibt es eine Art GEHEZU-Befehl mit dem in in einer Tabelle das aktuelle Tagesdatum finde und der Curser dann auf diese Zelle wechselt?
Danke im voraus.
Gunter
Danke im voraus.
Gunter
ich habe es so gelöst(Start ist hier manuell)
Sub go_auto_today()
Application.ScreenUpdating = False
For Each a In ActiveSheet.Range("A12:IU12")'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
gruss geri
Gunter
ich habe das gleiche Problem - leider funktioniert aber der Vorschlag nicht; ich habe unterschiedliche Fehlermeldungen; muss ich "a" bzw. "Spalte" usw. noch näher definieren?
mfg
Erich
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