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 "