Excel und VBA - Die Excel-FAQ

Arbeitsmappe mit 12 Monatsblättern anlegen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Arbeitsmappe mit 12 Monatsblättern anlegen

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

StandardModule: basMain

Sub JahrAnlegen()
   Dim iMonth As Integer
   Application.ScreenUpdating = False
   Workbooks.Add 1
   For iMonth = 1 To 12
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format(DateSerial(1, iMonth, 1), "mmmm")
   Next iMonth
   Application.DisplayAlerts = False
   Worksheets(1).Delete
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub