Tutorial

Excel-Tutorial: Tabellenblätter automatisch numerisch und alphanumerisch sortieren

Melden

Hier ist ein ausführliches Tutorial, wie du Tabellenblätter in Excel automatisch numerisch oder alphanumerisch sortieren kannst.

Da Excel standardmäßig keine „Sortieren“-Schaltfläche für Tabellenreiter (Tabs) hat, nutzen wir dafür ein kurzes, effektives Makro (VBA).

Wenn du eine Arbeitsmappe mit vielen Blättern hast (z. B. "Januar", "Februar" oder "Projekt 1", "Projekt 2", "Projekt 10"), ist das manuelle Verschieben mühsam. Mit dieser Anleitung sortierst du alle Tabs mit nur einem Klick.

Schritt 1: Den VBA-Editor öffnen

Um den Sortier-Befehl einzufügen, müssen wir kurz in den Hintergrund von Excel gehen:

  1. Öffne deine Excel-Datei.
  2. Drücke die Tastenkombination ALT + F11.
  3. Ein neues Fenster öffnet sich (der Microsoft Visual Basic for Applications Editor).

Schritt 2: Ein neues Modul erstellen

  1. Klicke im Menü oben auf Einfügen (Insert).
  2. Wähle den Punkt Modul.
  3. Es öffnet sich ein leeres weißes Textfeld auf der rechten Seite.

Schritt 3: Den VBA-Code kopieren und einfügen

Kopiere den folgenden Code und füge ihn exakt so in das weiße Textfeld ein:

Sub SortiereBlaetter()
    Dim i As Integer, j As Integer

    ' Schleife durch alle Tabellenblätter
    For i = 1 To Sheets.Count
        For j = 1 To Sheets.Count - 1
            ' Vergleich der Namen (Groß-/Kleinschreibung wird ignoriert)
            If UCase(Sheets(j).Name) > UCase(Sheets(j + 1).Name) Then
                ' Verschieben, wenn der Name alphabetisch "größer" ist
                Sheets(j).Move After:=Sheets(j + 1)
            End If
        Next j
    Next i

    MsgBox "Sortierung abgeschlossen!", vbInformation, "Fertig"
End Sub

Schritt 4: Das Makro ausführen

  1. Klicke irgendwo in den Code, den du gerade eingefügt hast.
  2. Drücke die Taste F5 auf deiner Tastatur oder klicke oben in der Symbolleiste auf das grüne Play-Symbol (Ausführen).
  3. Excel sortiert nun blitzschnell alle Tabs von links nach rechts (A-Z oder 0-9).
  4. Es erscheint die Meldung „Sortierung abgeschlossen!“. Du kannst das VBA-Fenster nun einfach schließen (X oben rechts).

Wichtige Hinweise für die Sortierung

1. Alphanumerische Logik (1, 10, 2 vs. 01, 02, 10)

Excel sortiert Text-Strings standardmäßig Zeichen für Zeichen. Das bedeutet:

  • Problem: Eine Liste wie "1, 2, 10, 11" würde oft als "1, 10, 11, 2" sortiert werden, weil die "1" von der "10" vor der "2" kommt.
  • Lösung: Benenne deine Tabs mit führenden Nullen um (z. B. 01, 02, 10), damit die numerische Reihenfolge perfekt eingehalten wird.

2. Die Datei richtig speichern

Da die Datei nun ein Makro enthält, kannst du sie nicht mehr als normale .xlsx Datei speichern, wenn du das Makro behalten möchtest:

  1. Gehe auf Datei > Speichern unter.
  2. Wähle als Dateityp Excel-Arbeitsmappe mit Makros (.xlsm).

3. Rückgängig machen?

Achtung: Aktionen, die durch Makros ausgeführt werden, können nicht mit der „Rückgängig“-Taste (Strg + Z) rückgängig gemacht werden. Es empfiehlt sich, vor der Ausführung eine Sicherheitskopie der Datei zu erstellen.

Bonus: Absteigend sortieren (Z bis A)

Falls du die Blätter lieber in umgekehrter Reihenfolge haben möchtest, ändere im Code einfach das Größer-als-Zeichen > in ein Kleiner-als-Zeichen <:

If UCase(Sheets(j).Name) < UCase(Sheets(j + 1).Name) Then

0