kann man ein Tabellenblatt in dem verschiedene Zellen unterschiedliche oder auch gleiche Farben hat nach diesen Farben sortieren?
Vielen Dank für eure Mühen.
Sub FarbeErmitteln()
For i = 1 To 15
X = Cells(i, 1).Interior.ColorIndex
Cells(i, 1).Offset(0, 1) = X
Next
MsgBox "und jetzt wird sortiert ;-)"
Range("A1:B15").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A19").Select
End Sub
vor dem Ausführen vom Makro:
nach dem Start des Makros:
Ende Makro:
Gruß Matthias