gekleurde cellen tellen

Discussion:

(te oud om op te antwoorden)

Piet Robe

2005-05-31 09:17:29 UTC

Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren). Nu zou
ik de afzonderlijke kleuren willen tellen. Ik mbv google niets kunnen
vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet

Ingrid Baplue

2005-05-31 09:27:25 UTC

Permalink

Het staat toch op z'n site hoor:
Functions For Working With Cell Colors
http://www.cpearson.com/excel/colors.htm
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren).
Nu zou ik de afzonderlijke kleuren willen tellen. Ik mbv google niets
kunnen vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet

Piet Robe

2005-05-31 17:08:40 UTC

Permalink

Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
volgende:
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat toch anders
moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Ingrid Baplue
Functions For Working With Cell Colors
http://www.cpearson.com/excel/colors.htm
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Piet Robe

2005-06-01 01:17:13 UTC

Permalink

Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had ik
aangepast en krijg dan telkens als waarde 0 een identiek geval als ik al
eerder beschreven had.
de aangepaste functie is geworden:
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)

de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.

Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling

groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat toch
anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Ingrid Baplue

2005-06-01 05:55:50 UTC

Permalink

Is de opmaak manueel gemaakt, of via Voorwaardelijke opmaak?
<quote>
NOTE: These functions will not detect colors that are applied by
Conditional Formatting.
</quote>
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval als
ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren).
Nu zou ik de afzonderlijke kleuren willen tellen. Ik mbv google
niets kunnen vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet

Piet Robe

2005-06-01 14:28:20 UTC

Permalink

Ingrid,
bedankt voor de note, want zoals ik al schreef was de opmaak inderdaad
gemaakt met de voorwaardelijke. Uitgaande van het gegeven dat de
voorwaardelijke opmaak noodzakelijk is is er een andere mogelijkheid om de
celkleuren te tellen.
groet
Piet

Post by Ingrid Baplue
Is de opmaak manueel gemaakt, of via Voorwaardelijke opmaak?
<quote>
NOTE: These functions will not detect colors that are applied by
Conditional Formatting.
</quote>
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren).
Nu zou ik de afzonderlijke kleuren willen tellen. Ik mbv google
niets kunnen vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet

Ingrid Baplue

2005-06-01 14:31:53 UTC

Permalink

Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren, moeten
gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Ingrid,
bedankt voor de note, want zoals ik al schreef was de opmaak inderdaad
gemaakt met de voorwaardelijke. Uitgaande van het gegeven dat de
voorwaardelijke opmaak noodzakelijk is is er een andere mogelijkheid
om de celkleuren te tellen.
groet
Piet

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Piet Robe

2005-06-01 15:04:10 UTC

Permalink

Ingrid,
zal zonder meer, maar is mij niet duidelijk bv
voorwaarde cel groter dan 0 groene kleur (index4)
voorwaarde kleiner dan 0 rode kleur (index3)
alle cellen andere standaard witte achtergrondkleur
Hoe verwerk ik dat dan?
groet
Piet

Post by Ingrid Baplue
Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren, moeten
gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Luc Heyndrickx

2005-06-02 14:56:50 UTC

Permalink

Hoi Piet,

=SOM.ALS(A:A;"<0")
=SOM.ALS(A:A;">0")

Luc

Post by Piet Robe
Ingrid,
zal zonder meer, maar is mij niet duidelijk bv
voorwaarde cel groter dan 0 groene kleur (index4)
voorwaarde kleiner dan 0 rode kleur (index3)
alle cellen andere standaard witte achtergrondkleur
Hoe verwerk ik dat dan?
groet
Piet

Post by Ingrid Baplue
Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren,
moeten gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Piet Robe

2005-06-02 18:40:40 UTC

Permalink

Luc<
bedankt voor je bijdrage, alleen telt deze alle waarde van bv de groene
cellen op.
Ik heb gedacht om op dit spoor verder te gaan som.als te vervangen door
aantal. Alleen de functie aantal onderstent geen voorwaarden
=AANTAL(B24:K39;"<0") en het zal je waarschijnlijk niet verbazen dat e.e.a
ook geldt voor de functie aantalarg. Is er misschien een andere functie?
groet
Piet

Post by Krijn
Hoi Piet,
=SOM.ALS(A:A;"<0")
=SOM.ALS(A:A;">0")
Luc

Post by Ingrid Baplue
Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren,
moeten gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Luc Heyndrickx

2005-06-02 23:05:01 UTC

Permalink

AANTAL.ALS

Luc

Post by Piet Robe
Luc<
bedankt voor je bijdrage, alleen telt deze alle waarde van bv de groene
cellen op.
Ik heb gedacht om op dit spoor verder te gaan som.als te vervangen door
aantal. Alleen de functie aantal onderstent geen voorwaarden
=AANTAL(B24:K39;"<0") en het zal je waarschijnlijk niet verbazen dat
e.e.a ook geldt voor de functie aantalarg. Is er misschien een andere
functie?
groet
Piet

Post by Krijn
Hoi Piet,
=SOM.ALS(A:A;"<0")
=SOM.ALS(A:A;">0")
Luc

Post by Ingrid Baplue
Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren,
moeten gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Piet Robe

2005-06-03 11:50:53 UTC

Permalink

Luc,
weer een geval op het paard zitten en ernaar zoeken. Bedankt.
Piet

Post by Luc Heyndrickx
AANTAL.ALS
Luc

Post by Krijn
Hoi Piet,
=SOM.ALS(A:A;"<0")
=SOM.ALS(A:A;">0")
Luc

Post by Ingrid Baplue
Dan zal je de voorwaarden, die je gebruikt om de cellen te kleuren,
moeten gebruiken om de cellen te tellen.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Post by Piet Robe
Vroeger heb ik ook al eens een functie gekregen van Ingrid. Deze had
ik aangepast en krijg dan telkens als waarde 0 een identiek geval
als ik al eerder beschreven had.
Function TellenRood(rng As Range) As Integer
Dim c As Range
Application.Volatile
TellenRoodEnOfHoofdletters = 0
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then _
TellenRood = TellenRood + 1
Next c
End Function
met als formule
=tellenrood(D37:M52)
de rode cel wordt bepaald mbv de volgende formule
=ALS(ISFOUT(E22-E23);"";E22-E23) en afhankelijk van de uitkomst met
voorwaardelijk opmaak gekleurd.
Ik denk dat als beide oplossingen goed zijn en waarom zal ik daaraan
twijfelen dan moet het misschien zitten in de bepaling
groet
Piet

Post by Piet Robe
Ingrid,
Ik heb het dank zij jouw gevonden, maar ik heb deze bewerkt tot het
=COUNTBYCOLOR($D$36:$M$51;4;1)
$D$36:$M$51 als de range
4 als de celkleur groen (letterkleur zwart)
1 of 0 maakt niets uit want er komt als resultaat 0, terwijl dat
toch anders moet zijn.
Zal vast wel wat over het hoofd zien.
groet
Piet

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie
kleuren). Nu zou ik de afzonderlijke kleuren willen tellen. Ik
mbv google niets kunnen vinden. En bij de heer pearson kon ik
het niet vinden. wie heeft zoiets al gedaan?
groet
Piet

Ad Bécude

2005-05-31 09:31:03 UTC

Permalink

Piet,

Tik hier boven eens "gekleurde cellen tellen "in, en dan op "START"

Ad.

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren). Nu zou
ik de afzonderlijke kleuren willen tellen. Ik mbv google niets kunnen
vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet

Amedee Van Gasse

2005-05-31 09:49:53 UTC

Permalink

Ad Bécude schreef in

?????
Waarschijnlijk alleen voor de mensen die via de webinterface werken.

Dit zijn de statistieken van de voorbije 2 weken:

Ranking Articles Percent Newsreader
1 115 49% Microsoft Outlook Express
2 82 35% Microsoft CDO for Windows
3 11 5% XanaNews
4 9 4% Forte Agent
5 7 3% MesNews
6 4 2% G2
7 3 1% Virtual Access by Atlantic Coast PLC, http:
8 3 1% Mozilla Thunderbird
9 2 1% MicroPlanet-Gravity
10 1 0% Mozilla

Dus, beste Ad, je bereikt maar 35% van de potentiële lezers.

--
Amedee Van Gasse using XanaNews 1.17.4.1

Krijn

2005-05-31 09:49:48 UTC

Permalink

Hoi Piet,
Onderstaande code telt de gekleurde cellen in het bereik A1:A10
Als de Cel niet gekleurd is, is de waarde -4142

Sub KleurenTellen()
Dim Geel As Integer
Dim Oranje As Integer
Dim Rood As Integer
Dim Anders As Integer
Cells(1, 1).Select
For i = 0 To 9 ' regels
Select Case ActiveCell.Offset(i, 0).Interior.ColorIndex
Case 3
Rood = Rood + 1
Case 6
Geel = Geel + 1
Case 44
Oranje = Oranje + 1
Case Else
Anders = Anders + 1
End Select
Next
End Sub

Post by Piet Robe
Beste mensen,
Ik heb een aantal cellen die gekleurd zijn (maximaal drie kleuren). Nu zou
ik de afzonderlijke kleuren willen tellen. Ik mbv google niets kunnen
vinden. En bij de heer pearson kon ik het niet vinden.
wie heeft zoiets al gedaan?
groet
Piet