Arbeitsmappe mit Tabellen für zwölf Monate anlegen

17. Juli 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

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

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"