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