Sortering efter fyldfarve?

Ja, men det skal gøres "bagom" med en makro. Jeg har lavet 2 eksempler: I det første bliver de uinteressante poster slettet, og i det andet bliver de sorteret til sidst.

Sub test()
'bevarer kun røde celler og sorterer
For Each t In Range("A1:A11")
If t.Interior.ColorIndex <> 3 Then t.Value = ""
Next
Columns("A:A").Sort Key1:=Range("A1")
End Sub


Sub test2()
'bevarer alle celler og sorterer
For Each t In Range("a1:a11")
If t.Interior.ColorIndex <> 3 Then
x = 2
Else
x = 1
End If
Cells(t, 2) = x
Next
Columns("A:B").Sort Key1:=Range("b1"), Key2:=Range("a1")
End Sub

Jeps - det virker. Tak for hjælpen.

Kunne jeg lokke dig til at acceptere svaret så jeg kan få points?

Troede jeg havde gjort det - nu er det gjort:-)