Tabellen automatisch anlegen

30. April 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie Tabellenblätter nach Ihren Wünschen erzeugen

Das Anlegen einer leeren Arbeitsmappe mit einer Reihe von Tabellenblättern kann viel Arbeit sein, wenn die Blätter bestimmte Namen erhalten sollen. Vereinfachen Sie sich die Arbeit mit einem Makro.

Das Makro verwendet alle Einträge im markierten Bereich und verwendet sie als Namen für neue Tabellenblätter in einer leeren Arbeitsmappe. Hier ist der Programmcode:

Sub TabellenAutomatischAnlegen()

Dim Bereich As Range

Dim i As Integer

Dim NeueMappe As Workbook

Set Bereich = Selection

Set NeueMappe = Workbooks.Add

For i = 1 To Bereich.Cells.Count

NeueMappe.Worksheets.Add.Name = Bereich.Cells(Bereich.Cells.Count - i + 1).Text

Next i

Application.DisplayAlerts = False

For i = 1 To NeueMappe.Worksheets.Count - Bereich.Rows.Count

NeueMappe.Worksheets(NeueMappe.Worksheets.Count).Delete

Next i

Application.DisplayAlerts = True

End Sub

Tragen Sie im ersten Schritt die gewünschten Tabellennamen in eine Liste ein, wie in der folgenden Abbildung zu sehen ist:

Tabellenname

Wenn Sie diesen Bereich mit den Namen nun markieren und anschließend das Makro aufrufen, legt Ihnen Excel die Tabellenblätter mit den passenden Namen in einer neuen Arbeitsmappe automatisch an, wie die folgende Abbildung zeigt:

Tabellenblätter angepasste Namen

Das Makro besteht aus drei Abschnitten. Im ersten Teil wird die neue, leere Arbeitsmappe angelegt. Dann werden der Reihe nach die neuen Tabellenblätter eingefügt. Schließlich löscht das Makro die Standardtabellenblätter, die nach dem Anlegen der leeren Mappe bereits von Excel eingefügt wurden.

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"