Öffnen einer Excel Tabelle mit dem Blatt auf dem das aktuelle Datum steht.

[Deadend]

Hallo zusammen,

Wie mein Benutzername schon sagt hänge ich in einer Sackgasse. 
Meine Tabelle ist Folgendermaßen aufgebaut:
Für jede KW im Jahr ein Tabellenblatt (Namen KW 1, KW 2, ....)
Auf jedem dieser Blätter sind die einzelnen Wochentage mit Datum aufgelistet mit der Möglichkeit zu bestimmten Zeiten für jeden Wochentag die Zeit zu Blocken bzw. reservieren. (siehe Anhang)

Ich würde gerne das, wenn man die Tabelle öffnet, man automatisch auf dem Tabellenblatt landet auf dem das Datum des heutigen Tages steht.

Grüße Sebastian

[DeltaX]

Keine Ahnung, was Du vorhast!
ABER, ein Worksheet hat 1048576 Zeilen, Du brauchst weniger als 5000 davon.
Da sollte alles auf ein Worksheet passen!

[Deadend]

Hallo,

Das ist mir Grundsätzlich bewusst jedoch nicht gewollt. Die Gründe hierfür sind leider nicht änderbar.

Gruß Sebastian

[Gast 123]

Hallo

versuche bitte mal diesen Code in der Tabellle  "DieseArbeitsmappe"  Er funktioniert beim Öffnen der Datei.

mfg Gast 123

Code:

Private Sub Workbook_Open()
Dim Monat As Integer
    Monat = Format(Now, "ww", vbMonday)
    Worksheets("KW " & Monat).Select
End Sub

[Deadend]

Vielen lieben dank klappt wunderbar

[RPP63]

Wobei ja "eigentlich" ein Einzeiler reicht:
Worksheets(Format(Date,"K\W ww")).Activate
(man beachte die Maskierung des W mittels \)
ABER:
2024 mal außen vor …
Viele Jahre beginnen und enden mit der KW 52
Außerdem hat Format(…, "ww") einen Bug; da ist die WorksheetFunction.Isoweeknum besser.

Gruß Ralf