Office: Tabellenblätter alphabetisch sortieren

Hallo Leute

Ich würde gerne innerhalb einer Arbeitsmappe meine Tabellenblätter alpabetisch sortieren; hab aber keinen Ansatz wie ich das machen soll.

Geht das?

Habe Office 2000 im Einsatz

Vielen Dank

 

Hallo!

Das kannst du per Makro erledigen lassen:
Öffne aus der Tabelle heraus den VBA-Editor mit Alt+F11
Doppelklicke im Fenster links oben auf "DieseArbeitsmappe"
Füge diesen Code ins Codefenster rechts ein:

Code:

Sub BlätterSortieren()
Dim B1 As Integer, B2 As Integer
Application.Screenupdating = False
For B1 = 1 To ThisWorkbook.Sheets.Count
For B2 = B1 To ThisWorkbook.Sheets.Count
If UCase(Sheets(B2).Name) < UCase(Sheets(B1).Name) Then Sheets(B2).Move Before:=Sheets(B1)
Next B2
Next B1
Application.Screenupdating = True
End Sub

Zurück in der Tabelle rufst du das Makro mit Alt+F8 auf.

 

Danke für die schnelle Antwort - ich werde das gleich einmal ausprobieren.

MFG

Basser

edit: WUNDERBAR! DANKE