Office: (Office 2019) beim Öffnen auf Blatt und Datum gehen

Hallo Forum!
Ich habe eine Excel Datei mit 12 Blättern, die Januar, Februar.... und Dezember heißen.
Auf jedem Blatt sind die Tage in der ersten Spalte von 01 bis 31 als Datum gelistet.
Ich möchte erreichen, dass beim Öffnen der Datei in Abhängigkeit zum aktuellen Datum das entsprechende Tabellenblatt geöffnet wird und auf diesem der aktuelle Tag angesteuert wird.
Wie sollte ich vorgehen?

 

Hi,

vorausgesetzt, Du hast die Monatsblätter in korrekter Reihenfolge und es stehen keine anderen Blätter davor, und die Tage stehen in Spalte A (beginnend in Zeile 1), kannst Du im Workbook:Open Ereignis diese Sub aufrufen:

Code:

Sub GeheZuHeute()
    Worksheets(Month(Date)).Activate
    Cells(Day(Date), 1).Activate
End Sub

Ansonsten entsprechend anpassen...

 

Vielen Dank für die schnelle Antwort.
Allerdings habe ich damit einige Probleme:
Wo wird der Code hinkopiert?
Wie muß das Makro benannt werden, um beim Öffnen der Datei ausgeführt zu werden?
Wo muss die Startzeile 7 eingetragen werden?

Ich habe VisualBasic angeklickt, links "Diese Arbeitsmappe" ausgewählt und in das Eingabefeld Deinen Code kopiert. Dann habe ich im Rahmen des Feldes oben links das PullDown Menu von "Allgemein" auf "Workbook" geändert. Das springt aber nach dem Speicher immer wieder zurück auf "Allgemein".
Gespeichert und den VB Editor geschlossen.
In meiner Exceldatei wird nun unter Makro Dein Code angezeigt.
Excel geschlossen und dann wieder gestartet und die Exceldatei geöffnet.
Das Makro springt nicht auf das Tabellenblatt vom aktuellen Monat.
Also "Makro" im Menueband angeklickt. Dort ist das Makro aufgelistet. Auf "Ausführen" geklickt und das aktuelle Monatsblatt wird geöffnet, nicht aber der aktuelle Tag.
In Spalte A steht in Zeile 6 die Überschrift DATUM und ab Zeile 7 sind die Monatstage aufgelistet. Das Makro springt auf das Datum sieben Tage vor dem aktuellen Datum. Die 1 in Deinem Code steht für Spalten.

 

..ok... Du hast fast alles richtig gemacht. Was ich nicht bedacht habe war, dass Du mit dem Begriff "Aufruf" nichts anfangen konntest.
Du kannst die Anweisungen der Prozedur auch direkt in das Open Ereignis des Workbooks schreiben:



Jetzt startet das Makro automatisch beim Öffnen der Datei.
Die alte Prozedur kannst Du löschen.

Wenn der Monatserste in Zeile 7 steht musst Du die Zeile
Cells(Day(Date), 1).Activate so abändern:

Cells(Day(Date) + 6, 1).Activate

 

Hallo RJ!
Das hat sehr gut geklappt. Vielen Dank!!