Hvis bestemt farve, så bestemt værdi

Du kan eventuelt lave en betinget formatering, så når du skrive "1" i cellen farver den cellen og teksten gul, derved ser cellen gul ud og du har en værdi du kan arbejde visere med. Hvor mange forskellige farver snakker vi om og så vidt jeg ved virker autofilter ikke på farver.

Jimse

vi snakker 3-4 farver - og det er således, at brugeren af arket kun sætter farven (og ikke "1", "2", "3" osv). Altså havde jeg kig efter en formel, a la IF THEN, til at sætte en værdi.

Følgende kode giver dig koden for baggrundsfarven i kolonne A
Sub Macro5()
    Range("A1").Select
    Do
        ActiveCell = ActiveCell.Offset(0, 1).Interior.ColorIndex
        ActiveCell.Offset(1, 0).Activate
    Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

takker - virker perfekt :)

Den fåes også som formel!

Public Function BaggrundsFarve(ByRef cell As Range) As Integer
    BaggrundsFarve = Range(cell.Address).Interior.ColorIndex
End Function

den kan jeg til gengæld ikke få til at virke.... Kunne du give et hurtigt tip ?

det gør det så nu :) Tak for hjælpen !!!