Arbeitsmappe mit Tabellen für zwölf Monate anlegen

Arbeitsmappe mit Tabellen für zwölf Monate anlegen

Wie Sie eine Arbeitsmappe anlegen und Tabellen umbenennen

Sie möchten Arbeitsmappen anlegen, in denen zwölf Tabellenblätter enthalten sind, damit Sie Daten für jeden Monat eines Jahres erfassen können? Lassen Sie diese Aufgabe automatisch von einem Makro erledigen.

Das folgende Makro erzeugt eine neue, leere Arbeitsmappe mit zwölf Tabellenblättern und benennt die einzelnen Blätter in der Kurform der Monatsnamen, also "Jan", "Feb" usw. Hier ist das passende Makro:

 

Sub ErzeugeMonatstabellen()
Dim TabAnzahl As Integer
Dim Neu As Workbook
Dim Namen As Variant
Namen = Array("Jan", "Feb", "Mar", "Apr", "Mai", "Jun", _
             "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
TabAnzahl = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Set Neu = Workbooks.Add
Application.SheetsInNewWorkbook = TabAnzahl
For TabAnzahl = 1 To 12
 Neu.Worksheets(TabAnzahl).Name = Namen(TabAnzahl - 1)
Next TabAnzahl
End Sub

Nach dem Start erhalten Sie eine Arbeitsmappe mit zwölf Tabellenblättern. Die folgende Abbildung zeigt, wie das Ergebnis aussieht:

Wenn Sie anstelle der Monatsnamen andere Namen verwenden möchten, passen Sie die Namen in der Wertzuweisung an die Variable "Namen" an.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html