Kleuren van cel als waarde gebruiken.

[sephiroth]

Beste,

Ik wil de inkleuring van een cel gebruiken in een formule, voor de rest is de cel leeg. Hoe kan ik dit formuleren aan excel zodat deze de inkleuring herkent ?

Simpel voorbeeld, in van "A1" tot "A25" kleur ik
maneel "A5" & "A10" in met rood. In A26 wil ik een formule hebben die me als resultaat 2 geeft. (=aantal ingekleurde velden)

Wie kan helpen ? Tx :thumb:

 

[mooncrawler]

Toets ALT-F11, kies Invoegen/Module

Plak daar dan onderstaande code:

Option Explicit
Public Function SumColors(r As Range) As Integer
Dim i As Integer
Dim c
i = 0
For Each c In r
If c.Interior.ColorIndex > 0 Then i = i + 1
Next
SumColors = i
End Function


Vervolgens in je werkblad de formule =SumColors(A1:A25)

 

[sephiroth]

PERFECT !!

Bedankt :thumb: :thumb: