Herbers Excel-Forum - das Archiv
nach Registerfarbe sortieren
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