Herbers Excel-Forum - das Archiv

sortieren der tabellenblätter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: sortieren der tabellenblätter
von: stromer
Geschrieben am: 15.10.2003 08:24:51
moin moin
folgende frage:
wie kann ich kann ich die tabellenblätter (und es sind viele) in einer arbeitsmappe bei bedarf nach ihrem namen sortieren?
danke!

Bild

Betrifft: AW: Sortieren der Tabellenblätter nach Namen
von: Galenzo
Geschrieben am: 15.10.2003 08:48:07
Hallo,
für das Sortieren der Tabellenblätter nach Namen kannst du diesen Sortieralgorithmus benützen:


Private Sub CommandButton1_Click()
Dim i%, j%
    For i = 1 To ActiveWorkbook.Worksheets.Count
        For j = i To ActiveWorkbook.Worksheets.Count
            If Worksheets(j).Name < Worksheets(i).Name Then
                Worksheets(j).Move before:=Worksheets(i)
            End If
        Next j
    Next i
End Sub

Viel Erfolg!
Bild

Betrifft: AW: sortieren der tabellenblätter
von: WernerB.
Geschrieben am: 15.10.2003 08:54:35
Hallo Stromer,

was hältst Du hiervon:


Sub SheetsAlphaSort()
Dim i As Integer, j As Integer, k As Integer
k = ActiveWorkbook.Worksheets.Count
For i = 1 To k
For j = i To k
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Bild

Betrifft: AW: sortieren der tabellenblätter
von: stromer
Geschrieben am: 15.10.2003 09:04:59
vielen dank! funktioniert wunderbar!
echt kalsse das forum!
(auch wenn ich eigentlich immer nur die fragende bin :-(
aber ich nehme mir ganz fest vor, mich mal mit vba zu befassen - versprochen!
 Bild
Excel-Beispiele zum Thema " sortieren der tabellenblätter"
Felder über VBA sortieren Zellinhalte zeilenweise sortieren
Nach dem Zufallsprinzip umsortieren Menüpunkte sortieren
Tabellen hinzufügen und sortieren Alphanumerisch sortieren
Werte in mehreren Spalten sortieren IP-Nummern nach Gruppen sortieren
Zeilenweise sortieren Auf- und absteigend sortieren ohne Sortierfunktion