--
Pe.
Niet dus....jammer of mag ik hoopvol zijn dat er toch iemand reageert...
grt,
--
Pe.
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
P.test
--
Groetjes,
Sam
>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,
>
>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.