Tellen kleuren

[Henk Benter]

In de bijlage mijn planningstool waarin opgenomen een module telachtergrondkleur.

De module die in de toepassing is opgenomen telt het aantal gekleurde cellen. Bij gelijk gekleurde cellen wordt deze per datum éénmaal meegeteld. Het kan voorkomen dat de planning meer dan 100 ploegen bevat. Dan kan het zijn dat een kleur vaker voor gaat komen bij verschillende ploegen (het is toch wel lastig om 100 verschillende kleurtjes aan te maken). Op eenzelfde datum kan dan bij verschillende ploegen eenzelfde kleur voor komen. De formule telt dan slechts éénmaal de unieke kleur die voor komt, terwijl per ploeg de kleur éénmaal mag worden geteld. Is dit op te lossen middels VBA. Dank voor uw bijdrage.

Ik weet wat ik wil, heb getracht VBA te doorgronden, blijft een probleem.

 

[HSV]

Function TelAchtergrondkleur(Bereik As Range, Reference As Range)
Dim Cl As Range, ClrCount As Long, c00 As String
Application.Volatile
     For Each Cl In Bereik
         If Cl.Interior.ColorIndex <> Reference.Interior.ColorIndex And InStr(c00, Cells(Cl.Row, 9) & "|") = 0 Then
            c00 = c00 & Cells(Cl.Row, 9) & "|"
            ClrCount = ClrCount + 1
        End If
    Next
    TelAchtergrondkleur = ClrCount
End Function

 

[Henk Benter]

Harry, top, dit werkt. Nogmaals, had dit zelf niet kunnen bedenken, laat staan dat ik de code begrijp.

 

[HSV]

Graag gedaan,

Het is je eigen code die lichtjes aangepast is (wilde er ook niet teveel aan sleutelen).