Neue Excel-Arbeitsmappe mit benannten Tabellenblättern per Makro erzeugen

13. April 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Legen Sie über ein VBA-Makro eine neue Arbeitsmappe an, in der genau so viele Tabellenblätter enthalten sind, wie Sie brauchen

Neue Arbeitsmappe mit nummerierten Tabellenblättern

Neue Arbeitsmappe mit nummerierten Tabellenblättern

In vielen Makros sollen neue Arbeitsmappen erzeugt werden, die beispielsweise mit bestimmten Inhalten gefüllt werden. Eine wichtige Aufgabe ist es dabei, eine neue Excel-Arbeitsmappe zu erzeugen, in der genau die Anzahl von Tabellenblättern enthalten ist, die Sie sich wünschen.

Das folgende Makro erledigt diese Aufgabe. Es erzeugt eine neue Arbeitsmappe, die 31 Tabellenblätter enthält, Diese Tabellenblätter werden mit den Zahlen 1 bis 31 durchnummeriert. Hier sind die passenden VBA-Befehle:

Sub FuegeTabellenEin()
Dim Anzahl As Integer
Dim i As Integer
Dim Mappe As Workbook
Anzahl = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Set Mappe = Workbooks.Add
For i = 1 To Mappe.Worksheets.Count
Mappe.Worksheets(i).Name = i
Next i
Application.SheetsInNewWorkbook = Anzahl
End Sub

Nach dem Start zeigt Excel eine neue Arbeitsmappe an, die 31 Tabellenblätter enthält. Die folgende Abbildung zeigt, wie das im Blattregister aussieht:

Neue Arbeitsmappe mit nummerierten Tabellenblättern

Im Makro legen Sie über die Zahl 31 die Anzahl der gewünschten Tabellenblätter fest. Ändern Sie diese Zahl, wenn Sie weniger oder mehr Tabellenblätter in einer Arbeitsmappe anlegen möchten.

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro direkt aus Excel zu starten, setzen Sie die Tastenkombination ALT F8 ein.

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"