Auto open - aktuelles Datum
21.03.2017 11:51:45
Sven
ich hatte vor einiger Zeit folgendes Makro eingefügt um damit zu bewirken, dass die Tabelle nach öffnen in die Spalte mit dem aktuellen Datum springt und mir auch die 7 Spalten zuvor angezeigt werden.
Leider funktioniert dies jetzt nicht mehr.
Vielleicht kann mir jemand weiter helfen.
Vielen Dank bereits im Voraus!
Hier das Makro:
Sub Auto_Open()
Tabelle1.Cells.Find(What:=Date).Activate
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column - 7
End Sub
Anzeige