nach Registerfarbe sortieren

• nach Registerfarbe sortieren von golem vom 24.11.2003 11:13:49
  • AW: nach Registerfarbe sortieren - von xXx am 24.11.2003 11:55:17
    • AW: nach Registerfarbe sortieren - von golem am 24.11.2003 12:49:52

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

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

Betrifft: AW: nach Registerfarbe sortieren
von: golem
Geschrieben am: 24.11.2003 12:49:52
es klappt!!!
Ich danke Dir!
Gruß
Goli

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