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

Gekleurde cellen optellen...

2,585 views
Skip to first unread message

Pegasus

unread,
Nov 16, 2010, 6:09:25 AM11/16/10
to
Beste excelisten en specialisten,
Voor jullie mischien een fluitje van een cent maar voor mij onoverkomelijk :
Hoe kan ik het aantal "gekleurde "cellen (opvulling) in een kolom te weten
komen
bv : a1 tot a10 is heeft een groen patroon
a11 tot a15 heeft een rood patroon.... enz
Deze patronen (opvulling) staan wel in een willekeurige volgorde
Vraag : bestaat daar een formule voor ?
Met de gekende dank,

--
Pe.

Pegasus

unread,
Nov 19, 2010, 1:51:39 AM11/19/10
to
Pegasus frituurde dit in microsoft.public.nl.office.excel:

Niet dus....jammer of mag ik hoopvol zijn dat er toch iemand reageert...
grt,

--
Pe.

]-[oRus

unread,
Nov 19, 2010, 3:24:52 AM11/19/10
to
Pegasus beweerde op 19-11-2010:

Ik ging er van uit dat dat wel zou gebeuren. Bovendien is dit issue al
veel vaker aan de orde geweest (heb je al teruggezocht in deze groep?).

Maar goed....
Je geeft te weinig informatie. Hoe is die kleur in die cellen tot stand
gekomen? Via voorwaardelijke opmaak?
Indat geval kan je - al of niet via een extra kolom - op basis van die
zelfde voorwaarde de betreffende cellen tellen.
Als je de kleur gewoon handmatig via opmaak hebt aangebracht, kan je
beter even handmatig tellen. Anders moet hiervoor een VBA routine
gebruiken die via een lusroutine de cellen beoordellet op kleur en dat
in een teller vastlegt.


--
Vriendelijke groeten,

]-[oRus
www.lacrique.nl


Sam

unread,
Nov 19, 2010, 4:28:43 AM11/19/10
to
> >Beste excelisten en specialisten,
> >Voor jullie mischien een fluitje van een cent maar voor mij
onoverkomelijk :
> >Hoe kan ik het aantal "gekleurde "cellen (opvulling) in een kolom te
weten
> >komen
> >bv : a1 tot a10 is heeft een groen patroon
> >a11 tot a15 heeft een rood patroon.... enz
> >Deze patronen (opvulling) staan wel in een willekeurige volgorde
> >Vraag : bestaat daar een formule voor ?
>
> Niet dus....jammer of mag ik hoopvol zijn dat er toch iemand reageert...

P.test

--
Groetjes,
Sam


Pegasus

unread,
Nov 19, 2010, 6:24:19 AM11/19/10
to
]-[oRus <ho...@fake.invalid> frituurde dit in
microsoft.public.nl.office.excel:

>Ik ging er van uit dat dat wel zou gebeuren. Bovendien is dit issue al
>veel vaker aan de orde geweest (heb je al teruggezocht in deze groep?).
>
>Maar goed....
>Je geeft te weinig informatie. Hoe is die kleur in die cellen tot stand
>gekomen? Via voorwaardelijke opmaak?
>Indat geval kan je - al of niet via een extra kolom - op basis van die
>zelfde voorwaarde de betreffende cellen tellen.
>Als je de kleur gewoon handmatig via opmaak hebt aangebracht, kan je
>beter even handmatig tellen. Anders moet hiervoor een VBA routine
>gebruiken die via een lusroutine de cellen beoordellet op kleur en dat
>in een teller vastlegt.

Hoi ,
Bedankt voor de reactie, id de kleur is via voorwaardelijke opmaak.
Bon...ik ga eens terug de (oude) berichten ophalen van deze groep en
uitvlooien.
grt,

--
Pe.

Pegasus

unread,
Nov 23, 2010, 1:07:52 AM11/23/10
to
Excel prof frituurde dit in microsoft.public.nl.office.excel:

>Pegasus,
>
>Een formule zoals je die zoekt bestaat niet maar je kan hem wel zelf
>schrijven.
>Probeer het volgende voorbeeld maar.
>Een waarschuwing, het kleuren van een cel is geen event voor Excel om de
>het sheet opnieuw te berekenen. Dus na het (opnieuw) kleuren even handmatig
>de
>berekening opstarten.
>
>Voor de volledigheid hierbij de functie in VBA.
>
>Function SumByColor(CellColor As Range, SumRange As Range)
>
>Dim myCell As Range
>Dim iCol As Integer
>Dim myTotal
>
>iCol = CellColor.Interior.ColorIndex 'get the target color
>For Each myCell In SumRange 'look at each cell in the designated
>range
> 'if the cell color matches the
>target color
> If myCell.Interior.ColorIndex = iCol Then
> 'add the value in the cell to the
>total
> myTotal = WorksheetFunction.Sum(myCell) + myTotal
> End If
>Next myCell
>
>SumByColor = myTotal
>
>End Function

Hoi,
Mijn dank voor de respons en voor het geleverde werk....we zullen dit zeker
eens uittesten.
vgr,

--
Pe.

0 new messages