Makro soll beim öffnen der Datei starten
Gunter
ich habe folgenden Makro ( siehe unten ). Dieser soll beim öffnen der Datei automatisch starten.
Damit springt der Curser dann in die Zelle mit dem aktuellen Tagesdatum.
Was muß ich tun, damit dieses gelingt?
Gunter
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
Anzeige