Herbers Excel-Forum - das Archiv

nach Registerfarbe sortieren

Bild

Betrifft: nach Registerfarbe sortieren
von: golem
Geschrieben am: 24.11.2003 11:13:49
Hallo,
Kann man alle Tabellenblätter nach der Registerfarbe sortieren bzw gruppieren?
mfg Goli

Bild

Betrifft: AW: nach Registerfarbe sortieren
von: xXx
Geschrieben am: 24.11.2003 11:55:17
Hallo,
du musst die Color-Eigenschaft des TAb auswerten:


Sub SheetSortColor()
Dim x As Integer, y As Integer, wsCount As Integer
wsCount = ActiveWorkbook.Worksheets.Count
For x = 1 To wsCount
For y = x To wsCount
If Worksheets(y).Tab.Color < Worksheets(x).Tab.Color Then
Worksheets(y).Move before:=Worksheets(x)
End If
Next y
Next x
End Sub


Gruß aus'm Pott
Udo
Bild

Betrifft: AW: nach Registerfarbe sortieren
von: golem
Geschrieben am: 24.11.2003 12:49:52
es klappt!!!
Ich danke Dir!
Gruß
Goli
Bild
Excel-Beispiele zum Thema " nach Registerfarbe sortieren"
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