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ß Werner