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.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

Dieser Tipp (12403) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: Naming Tabs for Weeks.