Gruppe
Allgemein
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