Tips: Tabellen alphabetisch sortieren lassen (CHIP 07/2002)

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.