Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblätter nach Nummer sortieren

Betrifft: Tabellenblätter nach Nummer sortieren von: Andi
Geschrieben am: 16.08.2004 17:01:28

Hi,

habe mal ne Frage bezüglich der Sortierung von Tabellenblättern. Ist es möglich, die Blätter die Bsp: AD.0057.2323 etc. heißen nach dieser Nummer sortieren zu lassen?

Grüße Andi

  


Betrifft: AW: Tabellenblätter nach Nummer sortieren von: Panicman
Geschrieben am: 16.08.2004 17:47:18

Hallo Andi,

die Antwort ist ja.

Author: k.A.(nicht von mir)
Sub Blattnamensort_aufsteigend()
'Aufsteigende Sortierung der Tabellen nach dem Tabellennamen

For I = 1 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ß
Holger


  


Betrifft: AW: Tabellenblätter nach Nummer sortieren von: Andi
Geschrieben am: 17.08.2004 06:41:16

Danke.


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblätter nach Nummer sortieren"