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     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



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

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

ActiveSheet.Name = sMo(J)

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

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(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 „Blatt“, dann landen diese Arbeitsblätter nach 12 Monaten am Ende der Arbeitsmappe.

_Hinweis: _

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

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

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

Dieser Tipp (2017) 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:

Blätter für Monate .