Tel Achtergrondkleur

[Henk Benter]

In een planningstoepassing in Excel laat ik middels een formule de gekleurde velden tellen. Hiervoor heb ik de navolgende functie in het werkblad toegevoegd.

Function TelAchtergrondkleur(Bereik As Range, Reference As Range)
Dim Cl As Range, ClrCount As Long
Application.Volatile
For Each Cl In Bereik
    If Cl.Interior.ColorIndex <> Reference.Interior.ColorIndex Then
        ClrCount = ClrCount + 1
    End If
Next
TelAchtergrondkleur = ClrCount
End Function

Dit werkt super, het aantal van alle gekleurde velden afwijkend van kleur 0 verschijnt keurig in de gekozen cel. Toch wil ik graag een uitbreiding op de deze functie en wel als volgt. Wanneer de ploegnaam, welke is opgenomen in kolom I de waarde "zonder ploeg" bevat (dit kunnen meerdere regels zijn), dan moet een eventueel gekleurde cel in het bereik niet mee worden geteld door de formule Telachtergrondkleur. Hoop dat ik het e.e.a. duidelijk heb uitgelegd. Wie helpt mij de formule aan te passen? Dank alvast.

 

[VenA]

Gokje zo zonder bestandje

ClrCount = ClrCount - (Cells(Cl.Row, 9) <> "zonder ploeg")

 

[HSV]

If Cl.Interior.ColorIndex <> Reference.Interior.ColorIndex and cl <> "zonder ploeg" Then

of:

If Cl.Interior.ColorIndex <> Reference.Interior.ColorIndex and cells(cl.row,9) <> "zonder ploeg" Then

Neem het anders als optional in je function.

 

[Henk Benter]

Heren, dank je. De 2e coderegel van HSV heb ik verwerkt in de functie. De formule doet exact wat ik wil. Dank.