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

Beiträge aus den Excel-Beispielen zum Thema " nach Registerfarbe sortieren"