Code Snippet "VBA Excel"

Neue Arbeitsmappe mit 12 Arbeitsblättern für die Monate erstellen

Sub Monatsmappe()
'
' Monatsmappe Makro
' Makro am 26.01.2004 von Silvia Rothen aufgezeichnet
'

  Dim intCounter
  Dim arrMonate
  
  'Array mit Bezeichnungen für Blätter
  arrMonate = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
    "September", "Oktober", "November", "Dezember")
  
  'Neue Arbeitsmappe erstellen
  Workbooks.Add
  
  'Achtung: Arrays beginnen bei 0, Sheets in einem Workbook jedoch bei 1!
  For intCounter = 0 To UBound(arrMonate)
    If intCounter >= ActiveWorkbook.Sheets.Count Then
      ActiveWorkbook.Sheets.Add
      ActiveSheet.Move After:=Sheets(intCounter + 1)
    End If
    Sheets(intCounter + 1).Name = arrMonate(intCounter)
  Next
  Sheets(1).Select
End Sub