Aantal cellen met zelfde waarde (aantal.als) en kleur optellen

[Jap3600]

Hallo allemaal,

Ik heb in bijlage een voorbeeldje gemaakt / aangepast wat ik hier Hallo allemaal,

Ik heb in bijlage een voorbeeldje gemaakt / aangepast wat ik hier gevonden heb (http://www.helpmij.nl/forum/showthread.php/195713-Aantal-als-in-combinatie-met-opmaak).
Het gaat over het optellen van cellen die voldoen aan bepaalde criteria.

Nu is mijn vraag het volgende:
1. Ik zou de cellen niet willen optellen maar weergeven hoeveel cellen er voorkomen (aantal.als)
2. Indien er aan voorwaarde 1 wordt voldaan dient er weergegeven te worden hoeveel van deze cellen ook voorkomen met een bepaalde kleur, bijvoorbeeld “rood”
De uitkomst zou ik dan in de cellen D39 tot en met G42 willen laten komen staan.

Hopelijk kan iemand me verder helpen..

Bekijk bijlage som_als_kleur.xlsm

 

[VenA]

Zoiets?

Function Tel_als_kleur(kleur As Range, Range1, s As String) As Double
For Each cl In Range1
    If cl.Value = s And cl.Interior.ColorIndex = kleur.Interior.ColorIndex Then Tel_als_kleur = Tel_als_kleur + 1
Next cl
End Function

 

[Jap3600]

Zoiets?

Function Tel_als_kleur(kleur As Range, Range1, s As String) As Double
For Each cl In Range1
    If cl.Value = s And cl.Interior.ColorIndex = kleur.Interior.ColorIndex Then Tel_als_kleur = Tel_als_kleur + 1
Next cl
End Function

Beste VenA

Hartelijk bedankt voor je bijdrage... Hier was ik naar op zoek.
Heb de code inmiddels in mijn eigen bestand gezet, aangepast en uitvoerig uitgetest. Het werkt niet snel maar wel als een zonnetje dus nogmaals hartelijk bedankt voor deze snelle en goede interventie.

 

[VenA]

Een beetje jammer dat het in jouw eigen bestand niet al te snel werkt. Maar ja, ik weet niet welke range je geselecteerd hebt. For Each cl gaat elke cel bekijken en dan kan het inderdaad wat 'lang' lijken te duren. Als het werkt zoals jij wil, dan mag je de vraag op opgelost zetten. Anders plaats even een eigen voorbeeld.

Nb. Het quoten is niet nodig.

 

[Jap3600]

Een beetje jammer dat het in jouw eigen bestand niet al te snel werkt. Maar ja, ik weet niet welke range je geselecteerd hebt. For Each cl gaat elke cel bekijken en dan kan het inderdaad wat 'lang' lijken te duren. Als het werkt zoals jij wil, dan mag je de vraag op opgelost zetten. Anders plaats even een eigen voorbeeld.

Nb. Het quoten is niet nodig.

Beste VenA,

Heb nog een bijkomende vraag waar ik nu tegenaan loop. Ik heb de cellen ingekleurd door middel van voorwaardelijke opmaak. Echter neemt hij deze niet over. Is daar mogelijk ook nog een oplossing voor???

 

[VenA]

Aan twee dingen voldoe je al niet

Nb. Het quoten is niet nodig.

en

Anders plaats even een eigen voorbeeld.

Volgens mij is het vrij lastig om kleuren te tellen die door VO 'veroorzaakt' worden. Daarnaast kan je natuurlijk net zo goed tellen met de voorwaarde.