Anzahl der Tabellenblätter in einer Excel-Arbeitsmappe festlegen

21. Januar 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie die Excel-Blattanzahl per Makro definieren

Viele Makros werden dafür gemacht, Arbeitsmappen automatisch anzulegen. Diese Mappen sollen dann meist auch eine bestimmte Anzahl von Tabellenblättern besitzen.

Um die gewünschte Blattanzahl über ein Makro zu steuern, setzen Sie das folgende Kommando ein:

Sub BlattanzahlDefinieren()
Application.SheetsInNewWorkbook = 5
End Sub

Legen Sie mit der Zahl hinter dem Gleichheitszeichen fest, wie  viele Tabellenblätter Ihre Arbeitsmappe umfassen soll. Dieser Wert ist identisch mit der Zahl, die Anwender über das Menü "Extras – Optionen – Allgemein" im Feld "Blätter der Arbeitsmappe" festlegen können, wie in der folgenden Abbildung zu sehen ist:

Natürlich können Sie den Wert auch auslesen. Das ist sinnvoll, wenn Sie die Anzahl der Tabellenblätter nur kurz verändern möchten, um anschließend eine Mappe mit genau dieser Tabellenblattanzahl anzulegen. Das folgende Programm zeigt, wie das geht:

  1. Es speichert die aktuell voreingestellte Blattanzahl in einer Variablen.
  2. Es setzt den Wert auf die Zahl 7.
  3. Es legt eine neue Arbeitsmappe an (die dann sieben Blätter enthält).
  4. Es setzt die voreingestellte Tabellenanzahl auf den zuvor gespeicherten Wert zurück.

Hier ist das passende Programmlisting für diese Aufgabe:

Sub TabellenzahlMerken()
Dim Anzahl As Integer
Anzahl = Application.SheetsInNewWorkbook
 Application.SheetsInNewWorkbook = 7
 Workbooks.Add
 Application.SheetsInNewWorkbook = Anzahl
End Sub

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
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"