Excel und VBA - Die Excel-FAQ

Benennen von Tabellenblättern mit Monatsnamen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Benennen von Tabellenblättern mit Monatsnamen

Problem: Wie kann ich eine neue Arbeitsmappe mit 12 Monatsblättern erstellen?

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