Herbers Excel-Forum - das Archiv
sortieren der tabellenblätter
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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!
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!
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).
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!