Office: beim Öffnen der Tabelle,das Tagesdat. aus d.Datenreihe suche

Hallo Excelfreunde,
ich habe eine Urlaubsliste erstellt und möchte noch diverse Verbesserungen einbauen.
In der Tabelle hat jeder Tag eine Spalte (1/2 Jahr)
Gibt es eine Möglichkeit ,den Sichtbaren Bereich beim öffnen der Tabelle,direkt auf das aktuelle Tagesdatum vorzugeben?
Viele Grüße aus Hösel
Ralf

 

Hallo!

Ja, das geht:
Öffne aus der Tabelle heraus den VBA-Editor mit Alt+F11
Doppelklicke im Fenster oben links auf "Diese Arbeitsmappe" und füge diesen Code in das Codefenster rechts ein:

Code:

Private Sub Workbook_Open()
Dim i As Integer
'In der nächsten Zeile den Blattnamen anpassen:
Sheets("Tabelle1").Activate
With ActiveSheet
'In der nächsten Zeile die Anfangsspalte anpassen:
'1 für Spalte A, 2 für Spalte B, 3 für Spalte C, usw.
i = 1
'In der nächsten Zeile die Zeile mit den Datümern anpassen (momentan Zeile 1):
Do Until .Cells(1, i) = Date
i = i + 1
Loop
'In der nächsten Zeile nochmal die Zeile mit den Datümern anpassen:
.Cells(1, i).Select
End With
End Sub

Bei mir klappt's.