betinget formatering i excel 2007

Marker H5
Betingetformatering
Formlen er =I5 ="A"

lav selv resten

Jeg har ikke 2007, det her er fra 2003

Træk cellen med formateringen nedad til række 200 derefter

Hej Kabbak -
Jeg kan også løse den i excel2003, men har problemer med 2007, som virker meget anderledes.
Formlen indeholder jo 4 betingelser, der hver især skal udløse en "farve". Enten de 3 nævnte farver eller ingen farve. Har du et bud på en formel, der kan løse denne opgave?

Hvis ingen af de 3 kriterier er opfyldt, har cellen ingen farve, det er vel også en farve ;-))

jeps

jeg har fundet ud af at oprette regnel i 2007, mangler nu blot at få formlen til at passe :0))

Så er formlen også på plads.
Mangler blot at kunne tælle antal grøn, gul og rød. Har du en ide?

Ja, tæl på celleværdien, du kan ikke tælle på betinget formatering.

=TÆL.HVIS(I5:I200;"A")

Hejsa
Det er ikke celleværdien, men farven der skal tælles på. I mit tilfælde er det tekstens farve. Jeg ved at i VGA hedder baggrundsfarven: Interior.ColorIndex, men hvad hedder det, når dte er teksten det drejer sig om?

det hedder Font.ColorIndex, men det er stadigvæk en betinget farve, som jeg aldrig har kunnet fange.

Du har nu ikke helt ret, jeg faldt over noget kode fra 2007, som du har skrevet, og det virker næsten som ønsket.

Function ColorCount(rRange As Range, FColor As Range) As Double

Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Font.Color = FColor.Font.Color Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorCount = dCount
End Function


Ulempen er, at udregningen ikke sker automatisk. Koden må kunne kombineres med en event. Nogen ideer?

Du kan ikke få den til at trikke farveændringer, for et er når værdier skifter at den fanger det, men her sker det jo i kolonnen ved siden af.

Du har ret, jeg kommer nok ikke længere ud af den vej, men tak for hjælpen alligevel - selvom jeg ikke fik løst mit problem, så fik jeg da lært noget - det er da ik så ring endda. :0))
God weekend.