Sortieren der Register

Bild

Betrifft: Sortieren der Register
von: Michael
Geschrieben am: 08.12.2003 14:35:00

Hi,
kann man alle Registerblätter alphabetisch sortieren per Makro oder Funktion?
Dabei sollen allerdings die ersten 5 Tabellenblätter unberücksichtigt bleiben, dh dort bleiben wo sie sind.
Viele Grüße
Michael

Bild


Betrifft: AW: Sortieren der Register
von: WernerB.
Geschrieben am: 08.12.2003 14:41:05

Hallo Michael,

klappt es damit?

Sub SheetsAlphaSort()
Dim i As Integer, j As Integer, k As Integer
    k = ActiveWorkbook.Worksheets.Count
    For i = 6 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 Register
von: Martin Beck
Geschrieben am: 08.12.2003 14:43:57

Hallo Michael,

ungetestet:

'Aufsteigende Sortierung der Tabellen nach dem Tabellennamen

Sub Tabellensort_aufsteigend()
For i = 6 To Worksheets.Count - 1
x = Worksheets(i).Name
    For j = i + 1 To Worksheets.Count
      If Worksheets(j).Name < x Then
        x = Worksheets(j).Name
      End If
    Next j
Worksheets(x).Move Before:=Worksheets(i)
Next i
End Sub


Gruß
Martin Beck


Bild


Betrifft: AW: Sortieren der Register
von: Michael
Geschrieben am: 08.12.2003 14:56:47

Vielen Dank Euch beiden!
Wäre nie darauf gekommen!

Ist Worksheets(i) nicht problematisch falls man mal Tabellenblätter löscht und neue einfügt, dann wird der Codename nämlich nicht von Excel zurückgesetzt!?
Oder zählt der Compiler erst alle durch (von links nach rechts)?

DANKE DANKE!


Bild


Betrifft: AW: Sortieren der Register
von: WernerB.
Geschrieben am: 08.12.2003 15:07:38

Hallo Michael,

Du vermutest richtig.
Bei 'Worksheets(Index)' wird von links nach rechts durchgezählt (auch ausgeblendete Blätter!); Der Codename spielt dabei keine Rolle.


Gruß WernerB.


Bild


Betrifft: AW: Sortieren der Register
von: Michael
Geschrieben am: 08.12.2003 15:19:46

Hallo Werner,
Dankeschön für Deine&Eure Hilfe!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Sortieren der Register"