Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt autom. öffnen

Forumthread: 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
Anzeige

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.
Anzeige
AW: Tabellenblatt autom. öffnen
17.01.2006 08:35:15
Herbert
Danke
Hat funktioniert. Ich musste nur Auto_Open anstatt Workbook_Open setzen.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige