Wenn Sie eine neue Arbeitsmappe starten, müssen Sie in einem allgemeinen Szenario Arbeitsblätter im Wert von einem Jahr erstellen, eines für jede Woche des Jahres. Mit anderen Worten, eine Arbeitsmappe kann 52 oder 53 Arbeitsblätter enthalten, je nachdem, wie viele Wochen ein bestimmtes Jahr hat.

Wenn Sie eine solche Arbeitsmappe erstellen müssen, wissen Sie, dass das individuelle Erstellen und Benennen aller Arbeitsblätter ein echtes Problem sein kann. Hier wäre ein Makro nützlich. Das folgende Makro fügt die entsprechende Anzahl von Arbeitsblättern hinzu und benennt dann alle Arbeitsblätter entsprechend der Wochennummer (01 bis 52) um.

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Wenn Sie stattdessen eine Möglichkeit benötigen, Arbeitsblätter zu erstellen, die das Enddatum jeder Woche für ein Jahr anzeigen, wird ein anderes Makro benötigt.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Diese Version des Makros fragt Sie nach einem Anfangsdatum. Anhand dieses Datums werden dann die verschiedenen Arbeitsblätter in der Arbeitsmappe benannt. Wenn Sie einen Wert eingeben, der nicht in ein Datum übersetzt werden kann, generiert das Makro einen Fehler.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2018) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Registerkarten für Wochen benennen.