Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt