Als erstes ist in einem freien Tabellenbereich ein Inhaltsverzeichnis mit der gewünschten Blattreihenfolge anzulegen. Es spielt keine Rolle, ob dieses Verzeichnis in einem vorhandenen oder neuem Tabellenblatt steht. Wichtig ist, dass die Namen im Verzeichnis genau mit den Blattnamen der aktuellen Arbeitsmappe übereinstimmen und dass sie in einem zusammenhängenden Zellbereich stehen.

Angenommen, das Inhaltsverzeichnis wurde mit dem Beispiel dieser Site erstellt, steht die Liste der Tabellen im Blatt "Inhalt" und beginnt in der Zelle B2 (Das Blatt "Inhalt" ist Bestandteil der Mappe und muß mit angegeben werden!). Wenn nun das Inhaltsverzeichnis weiterhin an erster Stelle stehen und nur die restlichen Blätter in die gewünschte Blatt-Sortierfolge gebracht werden sollen, muß lediglich der Zellbereich "B3:B5" in die entsprechende Reihenfolge gerbacht werden. Die vorgegebene Sortierfolge wird in nachfolgendem VBA-Makro genutzt:


Sub Sortierung()
Dim strVerzeichnis As String
Dim strBereich As String
Dim i As Long
  strVerzeichnis = "Inhalt"
  strBereich = "B2:B5"
  With Worksheets(strVerzeichnis).Range(strBereich)
    For i = .Cells.Count To 1 Step -1
      Worksheets(.Cells(i).Value).Move _
      Before:=Worksheets(1)
    Next i
  End With
End Sub


Wurde das Inhaltsverzeichnis manuell erstellt, müssen die Zeilen

strVerzeichnis = "Inhalt"
strBereich = "B2:B5"

jeweils so angepaßt werden, daß anstelle von "Inhalt" der Name des Blatts mit dem Inhaltsverzeichnis erscheint und anstelle von "B2:B5" der Zellbereich mit der gewünschten Blattreihenfolge. Da es sich in beiden Fällen um Textwerte handelt, müssen die Angaben wie im Beispiel in Anführungszeichen stehen.


Erläuterungen:
Die Prozedur durchläuft den Zellbereich mit der gewünschten Reihenfolge von hinten nach vorne und stellt das Blatt mit dem jeweiligen Namen an den Anfang der Arbeitsmappe. So kommt zuerst das letzte Blatt an den Anfang, dann wird diesem das vorletzte vorangestellt, bis schließlich das erste Blatt ganz vorne steht.