Nach Farbe sortieren

Bild

Betrifft: Nach Farbe sortieren
von: Jan.W
Geschrieben am: 28.02.2005 10:51:14
Hey leute , ich weiss die Lösung ist schon tausendmal genannt worden, aber
ich sitz gerade in der Firma und brauch etwas womit ich einem datenblatt nach Farben sortieren kann. Ich hatte auf der Excel CD schon einen Code gefunden nur liegt der Zuhause.
Kann jemand helfen ?
Bsp. Datenbereich von A1 : E25
4 zeilen sind rot unterlegt und die sollen ans untere Ende der Tabelle sortiert werden.
Vielen Dank
Jan

Bild

Betrifft: AW: Nach Farbe sortieren
von: u_
Geschrieben am: 28.02.2005 11:04:18
Hallo,
F1 markieren, Einfügen-Namen-definieren
Name: ZellFarbe
bezieht sich auf: =Zelle.zuordnen(63;A1)
In F1 =ZellFarbe schreiben, runterziehen und danach sortieren.
Gruß
Bild

Betrifft: AW: Nach Farbe sortieren
von: Harald E
Geschrieben am: 28.02.2005 11:05:23
Hallo Jan,

Sub SortColors()
   Dim iRow As Integer
   Application.ScreenUpdating = False
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 2).Value = Cells(iRow, 1).Interior.ColorIndex
      iRow = iRow + 1
   Loop
   Range("A1").CurrentRegion.Sort _
      key1:=Range("B1"), _
      order1:=xlDescending, _
      header:=xlNo
   Columns("B").ClearContents
   Application.ScreenUpdating = True
End Sub

Gruß
Harald
Bild

Betrifft: Nachtrag
von: Harald E
Geschrieben am: 28.02.2005 11:13:45
Hallo Jan,
Colorindex von rot ist 3.
Schwarze (Index 1) und weiße (Index 2) Hintergründe werden ans Ende gestellt.
Gruß
Harald
Bild

Betrifft: AW: Nachtrag
von: Jan.W
Geschrieben am: 28.02.2005 12:20:53
Harald, vielen Dank für den Code.
Ich musste mein Datenblatt nochmal verändern und habe den Datenbereich von A3 : M100 nun zu sortieren. Ich habe schon einiges versucht aber meine Kenntnisse sind halt zu beschränkt. Kann ich hier nochmal hilfe bekommen.
Vielen dank vorab
Jan

Bild

Betrifft: AW: Nachtrag
von: Harald E
Geschrieben am: 28.02.2005 12:57:04
Hallo Jan,
boahh . Eins vorweg. Ich kann es glaub ich auch nicht viel besser als Du.
Hier mein nächster Versuch
Theoretisch soll er Spalte A bis zur ersten leeren Zelle durchsuchen und den Farbindex aus Spalte A nach Spalte N schreiben und dann den angegebenen Bereich A3-M100 nach Spalte N sortieren. Danach werden die Indexe in Spalte N wieder gelöscht.

Sub SortColors()
   Dim iRow As Integer
   Application.ScreenUpdating = False
   iRow = 3
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 14).Value = Cells(iRow, 1).Interior.ColorIndex
      iRow = iRow + 1
   Loop
   Range("A3:M100").Sort _
      key1:=Range("N3"), _
      order1:=xlDescending, _
      header:=xlNo
   Columns("N").ClearContents
   Application.ScreenUpdating = True
End Sub

Hoffe es paßt
Harald
Bild

Betrifft: AW: Nachtrag
von: Jan.W
Geschrieben am: 28.02.2005 15:37:43
Harald,
ich habe nochmal ein wenig gefummelt und jetzt klappt es
Danke.
Jan
Bild

Betrifft: Danke für die Rückmeldung :-) o.T.
von: Harald E
Geschrieben am: 01.03.2005 07:31:15

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nach Farbe sortieren "