Tutorial

Excel-Tabellenblätter alphabetisch sortieren: So geht’s (A-Z)

Melden

Hier ist ein ausführliches Tutorial, wie du deine Excel-Tabellenblätter (Tabs) alphabetisch sortieren kannst. Da Excel seltsamerweise keine integrierte Schaltfläche "A-Z sortieren" für Reiter hat, zeige ich dir die zwei besten Wege: die manuelle Methode und die automatisierte Lösung via VBA-Makro.

Wenn eine Excel-Arbeitsmappe viele Blätter enthält, verliert man schnell den Überblick. Ordnung ist hier das halbe Leben. Hier sind die Lösungen:

Methode 1: Manuelles Verschieben (Für wenige Tabellenblätter)

Wenn du nur 5 oder 10 Blätter hast, ist dies der schnellste Weg ohne Programmierung.

  1. Klicke mit der linken Maustaste auf den Namen des Tabellenblatts, das du verschieben möchtest, und halte die Taste gedrückt.
  2. Ein kleines schwarzes Dreieck erscheint über den Tabs.
  3. Ziehe das Blatt an die gewünschte alphabetische Position.
  4. Lasse die Maustaste los.

Methode 2: Die Profi-Lösung mit VBA (Für viele Tabellenblätter)

Wenn du dutzende Blätter hast, ist das manuelle Sortieren mühsam. Mit einem kleinen Skript erledigt Excel die Arbeit in einer Sekunde für dich.

Schritt-für-Schritt-Anleitung:

  1. Den VBA-Editor öffnen: Drücke die Tastenkombination ALT + F11 auf deiner Tastatur. Ein neues Fenster öffnet sich.

  2. Ein neues Modul einfügen: Klicke im Menü oben auf Einfügen und wähle dann Modul.

  3. Den Code kopieren und einfügen: Kopiere den folgenden Code und füge ihn in das weiße Fenster des Moduls ein:

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

    ' Durchlaufe alle Blätter der Arbeitsmappe
    For i = 1 To Sheets.Count
        For j = 1 To Sheets.Count - 1
            ' Vergleiche die Namen der Blätter (Groß-/Kleinschreibung ignoriert)
            If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                ' Verschiebe das Blatt, wenn es alphabetisch weiter hinten steht
                Sheets(j + 1).Move Before:=Sheets(j)
            End If
        Next j
    Next i

    MsgBox "Alle Tabellenblätter wurden alphabetisch sortiert!", vbInformation, "Fertig"
End Sub

  1. Das Makro ausführen:

    • Drücke die Taste F5 oder klicke auf das grüne "Play"-Symbol in der Symbolleiste.
    • Schließe das VBA-Fenster (X oben rechts), um zurück zu Excel zu kehren.

  2. Ergebnis: Deine Tabs sind nun perfekt von A bis Z sortiert.

Wichtige Hinweise

1. Datei speichern

Wenn du das Makro behalten möchtest, musst du die Excel-Datei als "Excel-Arbeitsmappe mit Makros (.xlsm)" speichern. Wenn du die Sortierung nur einmalig brauchst, kannst du die Datei danach auch wieder als normale .xlsx speichern (das Makro wird dann entfernt).

2. Sortierung umkehren (Z bis A)

Falls du die Blätter andersherum sortieren möchtest (Z-A), musst du im Code lediglich das Größer-als-Zeichen (>) in ein Kleiner-als-Zeichen (<) ändern: If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then

3. Ausgeblendete Blätter

Dieses Makro sortiert alle sichtbaren Blätter. Falls du ausgeblendete Blätter hast, werden diese beim Verschieben unter Umständen wieder sichtbar oder verursachen Fehler, je nach Excel-Version. Am besten blendest du vorher alles ein oder löschst nicht benötigte Blätter.

Zusammenfassung

  • Wenig Aufwand: Manuell ziehen.
  • Viel Aufwand: Makro (ALT+F11) nutzen.

Jetzt hast du eine perfekt organisierte Excel-Datei! Viel Erfolg beim Ausprobieren.

0