Tabellen alphabetisch sortieren lassen

Wenn Sie eine Arbeitsmappe mit mehreren Tabellen haben, kann es sinnvoll sein, diese alphabetisch zu sortieren. Allerdings ist das manuelle Verschieben sehr zeitaufwendig. Erstellen Sie einfach ein Visual-Basic-Makro mit folgendem Inhalt:

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)Then

    Sheets(J).Move after: =Sheets(j + 1)

   End If

  Next j

 Next i

End Sub
Sie finden das Makro auch auf www.chip.de unter dem Web-Code Office-Tipps. Rufen Sie das Programm auf, und schon sind alle Tabellen sortiert.