Tabellenblätter sortieren
17.11.2003 15:43:26
Silvie
Hab in der Recherche ein Makro gefunden um Tabellenblätter alphabetisch zu sortieren, funktioniert bei mir aber nicht.
Sub sorter()
AnzahlRegister = Sheets.Count 'hier kommt dann immer: Variable nicht definiert
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub
Hat jemand ne Idee?
Gruß
Silvie