Tabellen einer Arbeitsmappe alphabetisch sortieren

Sie haben eine Arbeitsmappe mit zahlreichen Tabellen. Darin möchten Sie die Tabellen alphabetisch sortieren, um schnell und übersichtlich auf alle Daten zugreifen zu können. Das manuelle Verschieben der einzelnen Tabellen ist Ihnen jedoch zu mühsam.

Obwohl Excel keine Funktion zum Sortieren der Tabellenblätter in der Arbeitsmappe anbietet, können Sie dies recht schnell mit einem Makro lösen.

Dazu führen Sie den Befehl »Extras | Makro | Makros« aus. Geben Sie einen Namen für das Makro wie zum Beispiel »Tabellen_Sortieren« ein und klicken Sie auf die Schaltfläche »Erstellen«. In den VBA-Editor schreiben Sie nun die folgenden Programmzeilen: 



Sub Tabellen_Sortieren() 
  Dim i As Integer, j As Integer
  For i = 1 To Sheets.Count
    For j = 1 To Sheets.Count - 1
      If UCase$(Sheets(j).Name) Name) Then
        Sheets(j).Move after:=Sheets(j + 1)
      End If
    Next j 
  Next i 
End Sub




Nach der Definition der Variablen durchläuft das Makro zwei Schleifen für die Anzahl der Tabellenblätter. Die »If«-Anweisung vergleicht die Namen der jeweiligen Blätter und verschiebt bei Bedarf das falsch positionierte Blatt hinter das Vergleichsblatt. Mit diesem einfachen »Bubble-Sort«-Verfahren sortiert das Makro nacheinander alle Tabellenblätter in aufsteigender alphabetischer Folge. Falls Sie eine absteigende Sortierreihenfolge wünschen, müssen Sie das Zeichen »>« in der »If«-Anweisung durch das Zeichen »<« ersetzen. Beenden Sie schließlich den VBA-Editor mit »Datei | Schließen« und gehen Sie zurück zu Microsoft Excel.

Zum Sortieren der Blätter führen Sie dann »Extras | Makro | Makros« aus, markieren das neu angelegte Makro und klicken auf »Ausführen«.