Tutorials

Excel-Tutorial: Mehrere Tabellenblätter automatisch aus einer Liste erstellen

Melden

Hier ist ein ausführliches Tutorial, wie du in Excel blitzschnell mehrere Tabellenblätter basierend auf einer Liste von Zellwerten erstellst. Ich zeige dir die zwei besten Methoden: den Pivot-Tabellen-Trick (ohne Programmierung) und die VBA-Methode (für Profis).

Wenn du eine Liste mit Namen (z. B. Abteilungen, Mitarbeiter oder Monate) hast und für jeden Eintrag ein eigenes Tabellenblatt benötigst, musst du das nicht manuell tun.

Methode 1: Der Pivot-Tabellen-Trick (Schnell & ohne VBA)

Diese Methode ist ideal, wenn du keine Makros verwenden möchtest. Wir nutzen eine versteckte Funktion der Pivot-Tabelle.

Schritt 1: Die Liste vorbereiten

  1. Schreibe deine Liste untereinander in eine Spalte.
  2. Gib der Liste eine Überschrift (z. B. "Name").
  3. Markiere die Liste inklusive Überschrift.

Schritt 2: Pivot-Tabelle erstellen

  1. Gehe im Menü auf Einfügen > PivotTable.
  2. Klicke auf OK (das Zielblatt ist egal).
  3. Ziehe dein Feld (z. B. "Name") in den Bereich Filter (das Feld oben links in den PivotTable-Feldern).

Schritt 3: Tabellenblätter generieren

  1. Klicke die Pivot-Tabelle an, damit der Reiter PivotTable-Analyse oben im Menü erscheint.
  2. Klicke ganz links auf den kleinen Pfeil neben Optionen.
  3. Wähle Berichtsfilterseiten anzeigen....
  4. Ein kleines Fenster öffnet sich. Bestätige mit OK.

Ergebnis: Excel erstellt nun für jeden Namen in deiner Liste ein eigenes Tabellenblatt und benennt es automatisch so. (Die kleinen Pivot-Felder auf den neuen Blättern kannst du danach einfach löschen).

Methode 2: Die VBA-Methode (Flexibel & Sauber)

Wenn du diese Aufgabe öfter erledigen musst, ist ein kurzes Makro die eleganteste Lösung.

Schritt 1: Den VBA-Editor öffnen

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Gehe auf Einfügen > Modul.

Schritt 2: Den Code kopieren

Kopiere den folgenden Code und füge ihn in das leere Fenster ein:

Sub ErstelleBlaetterAusListe()
    Dim zelle As Range
    Dim bereich As Range
    Dim aktuellesBlatt As Worksheet

    Set aktuellesBlatt = ActiveSheet

    ' Die Markierung (deine Liste) wird als Bereich festgelegt
    Set bereich = Selection

    On Error Resume Next ' Falls ein Blattname schon existiert, wird der Fehler übersprungen

    For Each zelle In bereich
        If zelle.Value <> "" Then
            ' Neues Blatt am Ende erstellen
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = Left(zelle.Value, 31)
        End If
    Next zelle

    ' Zurück zum Ursprungsblatt
    aktuellesBlatt.Activate

    MsgBox "Tabellenblätter erfolgreich erstellt!", vbInformation
End Sub

Schritt 3: Das Makro ausführen

  1. Gehe zurück in dein Excel-Fenster.
  2. Markiere mit der Maus die Zellen, die die Namen für die neuen Blätter enthalten.
  3. Drücke ALT + F8.
  4. Wähle ErstelleBlaetterAusListe und klicke auf Ausführen.

Hinweis: Excel-Blattnamen dürfen maximal 31 Zeichen lang sein und keine Sonderzeichen wie / \ ? * [ ] enthalten.

Welche Methode soll ich wählen?

Methode Vorteil Nachteil
Pivot-Trick Keine Programmierkenntnisse nötig; sehr schnell. Erstellt Pivot-Filter auf den neuen Blättern, die man löschen muss.
VBA-Makro Sehr sauber; Blätter sind komplett leer; automatisierbar. Datei muss als .xlsm (mit Makros) gespeichert werden.

Profi-Tipp:

Wenn du die VBA-Methode nutzt und die Blätter bereits eine bestimmte Vorlage (z. B. eine Tabelle mit Kopfzeile) haben sollen, kannst du im Code Sheets.Add durch Sheets("DeineVorlage").Copy After:=Sheets(Sheets.Count) ersetzen.

0