gibt es eine Möglichkeit die unten stehenden Arbeitsmappen (versehen mit Kalenderwochen) , nach aktuellen Kalnderwochen automatisch umzuschalten?
mfg dennse
Private Sub Workbook_Open()
Worksheets(WorksheetFunction.WeekNum(Date, 21)).Activate
End Sub
Gruß RalfWorksheets("KW " & Format(WorksheetFunction.WeekNum(Date, 21), "00")).Activate
Gruß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen