kann man Tabellenblätter auch alphabetisch sortieren ?
Gruß
Markus
Sub RegisterSortieren()
Dim AnzahlRegister As Integer
Dim i As Integer
Dim x As Integer
Dim Zaehler As Integer
' Gesamtzahl der Tabellenblaetter ermitteln
AnzahlRegister = Sheets.count
For i = 1 To AnzahlRegister - 1
x = i
For Zaehler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zaehler).Name) i Then Sheets(x).Move Sheets(i)
Next i
End Sub
Grüße Petra