Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1316to1320
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
Inhaltsverzeichnis

Zum aktuellen Tabellenblatt springen

Zum aktuellen Tabellenblatt springen
17.06.2013 07:51:11
Tim
Hallo,
ich habe hier eine Exceltabelle in jeweils für 3 KW aufgetiele Tabellenblätter.
Z.b. kw 40-42 , kw 43-45 etc.
Jetzt will ich mittels VBA, dass er wenn man die Tabelle öffnet in die aktuelle KW springt. Ist das möglich?
Hier die Tabelle:
https://www.herber.de/bbs/user/85858.xls
LG

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

Betreff
Datum
Anwender
Anzeige
AW: Zum aktuellen Tabellenblatt springen
17.06.2013 08:35:55
hary
Moin Tim
Probier mal.
Code in den Code der Arbeitsmappe.
Private Sub Workbook_Open()
Dim i As Long
Dim Woche As Long
Dim wks As Worksheet
i = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
Woche = ((Date - i - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
For Each wks In Worksheets
If Len(wks.Name) = 8 Then
If Woche >= CLng(Mid(wks.Name, 4, 2)) And Woche 

gruss hary

AW: Zum aktuellen Tabellenblatt springen
17.06.2013 08:43:10
Tim
danke klappt!
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige