Tutorials

Effizientes Excel: Mehrere Tabellenblätter gleichzeitig umbenennen mit VBA

Melden

Hier ist ein ausführliches Tutorial, wie du mit VBA-Code in Excel mehrere Tabellenblätter gleichzeitig umbenennen kannst.

Wenn du mit Arbeitsmappen arbeitest, die Dutzende von Blättern enthalten, ist das manuelle Umbenennen extrem zeitaufwendig. Mit einem kleinen VBA-Trick (Macros) kannst du diese Aufgabe in Sekunden erledigen.

In diesem Tutorial zeige ich dir die zwei nützlichsten Methoden.

Vorbereitung: Die Entwicklertools aktivieren

Bevor du VBA nutzen kannst, musst du sicherstellen, dass das Menüband „Entwicklertools“ sichtbar ist.

  1. Klicke mit der rechten Maustaste auf ein beliebiges Tab im Menüband.
  2. Wähle Menüband anpassen.
  3. Setze rechts den Haken bei Entwicklertools und klicke auf OK.

Methode 1: Tabellenblätter basierend auf einer Liste umbenennen

Dies ist die am häufigsten genutzte Methode. Du schreibst die neuen Namen einfach untereinander in eine Liste und Excel benennt die Blätter in dieser Reihenfolge um.

Schritt 1: Die Liste erstellen

  1. Erstelle ein neues Tabellenblatt und nenne es z.B. "Steuerung".
  2. Schreibe in Spalte A (ab Zelle A1) untereinander alle Namen, die deine Blätter erhalten sollen.

Schritt 2: Den VBA-Editor öffnen

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

Schritt 3: Den Code einfügen

Kopiere den folgenden Code in das neue Modulfenster:

Sub BlätterUmbenennenAusListe()
    Dim i As Integer
    Dim AnzahlBlätter As Integer

    ' Zählt, wie viele Blätter umbenannt werden sollen (basierend auf Spalte A)
    AnzahlBlätter = Sheets("Steuerung").Cells(Rows.Count, 1).End(xlUp).Row

    On Error Resume Next ' Verhindert Abbruch bei Fehlern (z.B. ungültige Zeichen)

    For i = 1 To AnzahlBlätter
        ' Das i-te Blatt wird nach dem Wert in Zelle Ai benannt
        ' Wir fangen bei Blatt 2 an, damit das "Steuerung"-Blatt nicht umbenannt wird
        Sheets(i + 1).Name = Sheets("Steuerung").Cells(i, 1).Value
    Next i

    MsgBox "Fertig! Die Blätter wurden umbenannt.", vbInformation
End Sub

Schritt 4: Das Makro ausführen

  1. Gehe zurück zu Excel.
  2. Drücke ALT + F8.
  3. Wähle BlätterUmbenennenAusListe und klicke auf Ausführen.

Methode 2: Ein Präfix oder Suffix hinzufügen (z.B. "2023_")

Möchtest du allen bestehenden Namen nur etwas hinzufügen?

Der Code:

Sub PräfixHinzufügen()
    Dim ws As Worksheet
    Dim Präfix As String

    Präfix = "Projekt_" ' Hier dein gewünschtes Präfix eintragen

    For Each ws In ThisWorkbook.Worksheets
        ws.Name = Präfix & ws.Name
    Next ws
End Sub

Wichtige Tipps & Excel-Tricks

  1. Rückgängig machen nicht möglich: Beachte, dass man Aktionen, die durch ein Makro ausgeführt wurden, nicht mit STRG + Z rückgängig machen kann. Speichere deine Datei also vorher ab!
  2. Verbotene Zeichen: Tabellenblattnamen dürfen keine Zeichen wie \ / ? * [ ] enthalten und maximal 31 Zeichen lang sein. Der Code oben überspringt Blätter mit Fehlern automatisch durch On Error Resume Next.
  3. Datei-Format: Um den VBA-Code zu speichern, musst du deine Excel-Datei als Excel-Arbeitsmappe mit Makros (.xlsm) speichern.
  4. Blätter ausschließen: Wenn du ein bestimmtes Blatt (z.B. das Dashboard) niemals umbenennen willst, kannst du eine If-Abfrage in den Code einbauen: If ws.Name <> "Dashboard" Then ...

Zusammenfassung

Mit VBA automatisierst du Routineaufgaben in Sekunden. Ob du nun eine Liste von 50 Namen aus einer Datenbank hast oder einfach nur das aktuelle Datum vor jeden Namen setzen willst – diese kleinen Codes sparen dir im Arbeitsalltag massiv Zeit.

Viel Erfolg beim Ausprobieren!

0