Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt autom. öffnen

Tabellenblatt autom. öffnen
16.01.2006 15:04:49
Herbert
Hallo
Habe hier eine Excelmappe mit 52 Blättern. Diese stellen die Kalenderwochen dar und sind auch so nummeriert. Ich möchte nun, das beim Öffnen dieser Mappe das aktuelle KW-Blatt öffnet. Die KW habe ich schon berechnet. Ist dies irgendwie möglich? Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt autom. öffnen
16.01.2006 16:35:31
Peter
Hallo Herbert,
füge das unten stehende Makro in DieseArbeitsmappe, speichere und schließe die Mappe und öffne sie wieder.

Private Sub Workbook_Open()
Dim dValue   As Double
Dim DINWeek  As Integer
dValue = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
DINWeek = (Date - dValue - 3 + (Weekday(dValue) + 1) Mod 7) \ 7 + 1
Worksheets(DINWeek).Activate
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Tabellenblatt autom. öffnen
17.01.2006 08:35:15
Herbert
Danke
Hat funktioniert. Ich musste nur Auto_Open anstatt Workbook_Open setzen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige