Wenn Sie eine neue Arbeitsmappe starten, wird jedes Arbeitsblatt häufig nach einem anderen Monat im Jahr benannt. Wenn Sie dies ziemlich oft tun, wissen Sie, dass es mühsam sein kann, jedes Arbeitsblatt nacheinander in genau das umzubenennen, was Sie benötigen.

Das folgende Makro wurde entwickelt, um in diesen Situationen zu helfen. Es überprüft die Namen der Arbeitsblätter in Ihrer Arbeitsmappe und benennt sie in die Monate des Jahres um, wenn sie mit den Buchstaben „Blatt“ beginnen. Wenn die Arbeitsmappe nicht genügend Blätter enthält, werden nach Bedarf Blätter für jeden Monat des Jahres hinzugefügt.

Sub DoMonths()

Dim J As Integer     Dim K As Integer

For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = MonthName(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

Der letzte Schritt im Makro besteht darin, dass die Arbeitsblätter für die Monate 1 bis 12 in der richtigen Reihenfolge angeordnet werden. Wenn Sie also noch andere Arbeitsblätter in der Arbeitsmappe haben (mit anderen Worten, Sie hatten einige, die nicht damit begonnen haben) die Buchstaben „Sheet“, dann landen diese Arbeitsblätter nach 12 Monaten am Ende der Arbeitsmappe.

Beachten Sie, dass das Makro die in VBA integrierte MonthName-Funktion verwendet. Sie gibt zurück Der vollständige Name des Monats, auf den durch die Nummer (1 bis 12) verwiesen wird, wurde übergeben. (Wenn Sie versuchen, ihn mit einer Nummer außerhalb dieses Bereichs zu verwenden, wird ein Fehler zurückgegeben.)

_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 mit hilfreichen Informationen vorbereitet.

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

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

Dieser Tipp (11148) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier:

Blätter für Monate.