Hallo,
wenn die Farben nicht aus bedingter Formatierung resultieren,
kannst du eine Hilfsspalte mit den Colorindex anlegen und danach sortieren.
'In Spalte 1 sind die Farben
'In Spalte 2 werden die Index aufgelistet
'Die Spalten musst du anpassen.
Option Explicit
Sub ManuelaM()
Dim Zeile As Long
For Zeile = 1 To 100 'anpassen tatsächlich Zeilenzahl
Cells(Zeile, 2) = Cells(Zeile, 1).Interior.ColorIndex
Next
End Sub
Manu
vielen Dank für Deinen Tipp. Ich habe das Makro geschrieben, aber erhalte in der zweiten Spalte unabhängig von der Farbe der Ausdrücke in der ersten Spalte immer -4142 als ColorIndex. Hast Du eine Ahnung woran das liegen könnte?
Grüsse,
Christoph