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½.