Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.
Maßgebend für das sortieren ist die Farbzahl (Index). Je größer der Farbindex desto weiter
hinten wird die Zelle einsortiert.
Um eine größeren Bereich zu sortieren müssen Sie nur den Wert in der For x-Schleife erhöhen.
Sub sortieren_nach_zellfarbe()
Dim x As Byte
'Hilfsspalte einfügen
Columns(1).Insert Shift:=xlToRight
'Farbwert in Hilfsspalte eintragen
For x = 1 To 10
Cells(x, 1) = Cells(x, 2).Interior.ColorIndex
Next x
'Sortieren
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Hilfsspalte wieder entfernen
Columns(1).Delete Shift:=xlToLeft
End Sub
Dies kann nützlich sein, um mit Zellfarbe versehene (markierte) Zellen zu bündeln.
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
