Count conditional format cel Colors

[PETER1046]

Correctie verkeerde bijlage

Goedenavond,..

Ik probeer de kleuren die ontstaan zijn door "conditional format " in een cluster cellen te tellen. ( zie bijlage )

Wat ik ook probeer, ik kan wel de kleuren wel gebruiken om de inhoud van de cellen selectief op te tellen,
echter als ik enkel wil weten hoeveel cellen van de 5 groen zijn, dan lukt dit niet. ( in het voorbeeld zou het antwoord 3 moeten zijn )

Wie kan mij helpen, bij voorbaat mijn dank.

Groet, Peter

 

[edmoor]

Bijlage is nog steeds fout. Het is een plaatje en geen Excel document.

 

[HSV]

Als de kleuren ontstaan door conditional formatting, dan kan je die cellen ook tellen d.m.v. die criteria met aantal.als of somproduct.

 

[PETER1046]

Nu de juiste bijlage, sorry,... gebruik dit forum niet vaak.

 

[edmoor]

Wat HSV al zei, in G6:

=AANTAL.ALS(B4:B8;1)

 

[HSV]

=aantal.als(b4:b8;1)

VO formule:
geen =of($b4=1) maar =b4=1

 

[mastermindzh]

Beste Peter,

Ik heb uw andere vraag weggehaald aangezien het niet netjes is dezelfde vraag meerdere keren te stellen.

Succes met de vraag,
Rick van Lieshout

 

[PETER1046]

Dit heb ik ook al geprobeerd, werkt wel bij een met de hand geplaatste kleur in een cel,
echter als de kleur wordt gegenereerd door conditional format, dan werk het niet meer (?)

Note: de waarde in b.v. B4 laat de cel groen of helder worden. E6 is mijn zoek kleur. en in G6 zou het antwoord moeten staan.

 

[edmoor]

echter als de kleur wordt gegenereerd door conditional format, dan werk het niet meer (?)

Dat klopt, vandaar de andere voorstellen.

Je kan wel dit gebruiken, maar dat werkt niet in een functie:

Public Sub TelCFkleur()
    Set c = Range("E6")
    For Each cl In Range("C4:C8")
        If cl.DisplayFormat.Interior.Color = c.Interior.Color Then
            aantal = aantal + 1
        End If
    Next
    MsgBox aantal
End Sub

 

[PETER1046]

Beste Edmoor,

Bedankt voor het voorbeeld.

Ik heb nu de uitkomst in de juiste cel gezet,
echter nu moet ik met de hand de macro steeds weer
herstarten om de waarde te updaten, kan je deze macro
ook in een soort "loop" zetten ?

Vast bedankt, Peter

 

[edmoor]

Nee, dat gaat niet zonder dat het andere processen binnen Excel verstoord.
Je kan wel Application.OnTime gebruiken om die sub om de bijvoorbeeld 10 seconden automatisch uit te voeren.
Ideaal is dat niet maar het zal in ieder geval werken.

 

[WHER]

Zoals hierboven in post 5 en 6 reeds aangegeven, gebruik "aantal.als" op basis van de waarden in kolom B, eenvoudiger en logischer.
Desalniettemin toch een poging op basis van een (ooit gevonden) UDF

 

[edmoor]

Of doe het eens zo:
Bekijk bijlage ccolor-count-3.xlsm

 

[PETER1046]

Bedankt, voor de geboden oplossing, groet, Peter