Gruppe
Allgemein
Problem
Die Tabelle soll nach den Farben in Spalte A sortiert werden.
StandardModule: Modul1
Sub Farben()
Dim iCounter As Integer
Application.ScreenUpdating = False
For iCounter = 2 To 55
Cells(iCounter, 3) = _
Cells(iCounter, 1).Interior.ColorIndex
Next iCounter
Range("C1") = "Index"
Columns("A:C").Sort key1:=Range("C2"), _
order1:=xlAscending, header:=xlYes
Columns(3).ClearContents
Application.ScreenUpdating = True
End Sub