Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Benennen von Tabellenblättern mit Monatsnamen
Problem
Wie kann ich eine neue Arbeitsmappe mit 12 Monatsblättern erstellen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub MonthSheets()
Dim iCounter As Integer
Application.ScreenUpdating = False
Workbooks.Add 1
Worksheets.Add Count:=11
For iCounter = 1 To 12
Worksheets(iCounter).Name = _
Format(DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
Application.ScreenUpdating = True
End Sub