Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

aantal.als met een kleur

6,251 views
Skip to first unread message

Egbert

unread,
May 21, 2010, 2:08:43 PM5/21/10
to
hoi, is het volgende mogelijk?

in een aantal cellen heb ik voorwaardelijke opmaak toegepast. Stel dat in
een bepaalde range een aantal cellen groen kleuren. Kan ik dan met
bijvoorbeeld de formule AANTAL.ALS het aantal groen gekleurde cellen tellen?

m.vr.gr.
Egbert

Maurrieske

unread,
May 21, 2010, 7:35:17 PM5/21/10
to
Voor zover ik weet niet. Wat je wel kunt doen is de formule van de
voorwaardelijke opmaak dusdanig maken dat deze reageert op een extra kolom.

Stel ik wil de cel kleuren op basis van de waarde > 3 in kolom A
Dan zou ik in kolom B de formule zetten =ALS(A1>3;1;0)
Deze formule doorkopieren zover als nodig.

De voorwaardelijke opmaak in A1 wordt dan mbv Formule in plaats van
celwaarde
=$B1=1

Ook deze opmaak kun je doorkopieren naar beneden

Vervolgens kun je de aantal.als loslaten op kolom B om het aantal 1 te
tellen.

Groetjes,

Maurrieske

"Egbert" <E.Leij...@kpnplanet.nl> schreef in bericht
news:06C49915-3541-4848...@microsoft.com...

JR

unread,
May 22, 2010, 7:41:39 AM5/22/10
to

Je kan ook een cel met de zelfde formale als jouw voorwaardelijk
opmaak laten tellen:

Egbert

unread,
May 22, 2010, 9:54:52 AM5/22/10
to
hoi. ik begrijp je niet helemaal


"JR" <jan.s...@gmail.com> schreef in bericht
news:d989feef-a222-4fa3...@e28g2000vbd.googlegroups.com...

Jack Sons

unread,
May 24, 2010, 11:34:27 AM5/24/10
to
Egbert,

Heb je hier wat aan? Ik heb hem in mijn personal.xls gezet en kan hem dus
altijd gebruiken.
Bij voorbeeld zo: =PERSONAL.XLS!SumByColor(H2:H38;B3)
In B3 stond bij mij 4, wat de kleur is van een goene achtergrond. Ik telde
dus de groen gekleurde cellen bij elkaar op.
Ga na dat deze formule ook gebruikt kan worden als niet de achtergrond maar
de tekst is gekleurd!

Jack.
------------------------------------------------------------------------------------------------------------

Function SumByColor(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Double

' This function return the SUM of the values of cells in
' InRange with a background color, or if OfText is True a
' font color, equal to WhatColorIndex.

Dim Rng As Range
Dim OK As Boolean
Application.Volatile True

For Each Rng In InRange.Cells

If OfText = True Then
OK = (Rng.Font.ColorIndex = WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex = WhatColorIndex)
End If

If OK And IsNumeric(Rng.Value) Then
SumByColor = SumByColor + Rng.Value
End If

Next Rng
End Function

-------------------------------------------------------------------------------------------------------------


"Egbert" <E.Leij...@kpnplanet.nl> schreef in bericht
news:06C49915-3541-4848...@microsoft.com...

Egbert

unread,
May 25, 2010, 5:52:37 AM5/25/10
to
hoi Jack, bedankt
m.vr.gr.
Egbert

"Jack Sons" <j.s...@planet.nl> schreef in bericht
news:4bfa9c84$0$14119$703f...@textnews.kpn.nl...

0 new messages