Supportnet / Forum / Tabellenkalkulation
Work book open nach KW
Frage
Hallo VBA Experten
Versuche seit einiger Zeit, ein VBA zu programmieren welches meinen Dienstplan in der aktuellen Kalenderwoche öffnet. Tabellenblätter sind in 01/02-52 benannt.
Habe Urlaubsplan folgendermaßen gelöst
Private Sub Workbook_Open()
Dim dat As String
dat = Mid(Date, 4, 2)
Select Case dat
Case "01"
Sheets("Januar").Select
End Select
Nur bei der Kalenderwoche steh ich auf dem Schlauch, vielleicht kann mir jemand helfen, wäre echt super. Danke
Antwort 1 von Saarbauer
Antwort 2 von vivi0815
Danke Helmut
Habe dort nützlich Hinweise bekommen, bin jetzt noch am krübeln wie es ins VBA packe ohne die Anweisung 52 mal zu schreiben, vilen Dank noch mal bis dann
Habe dort nützlich Hinweise bekommen, bin jetzt noch am krübeln wie es ins VBA packe ohne die Anweisung 52 mal zu schreiben, vilen Dank noch mal bis dann
Antwort 3 von Saarbauer
Hallo,
noch eine Quelle
http://www.excelformeln.de/formeln.html?welcher=7
hilft vielleicht besser
Gruß
Helmut
noch eine Quelle
http://www.excelformeln.de/formeln.html?welcher=7
hilft vielleicht besser
Gruß
Helmut