kleuen berekenen

[bleke]

beste forumleden,

ik heb een vraag over mijn bestandje. ik heb een vba module, vanuit het helpmij forum, ingevoegd maar ergens klopt er iets niet. De kleuren telt hij niet op bij het totaal van weektraining 1 of 2. via de FX functie alles ingevoerd maar telt niet op.

dit is het vba'tje:

Function SOMCELKLEUR(r As Range, KleurCel As Range) As Double
Application.Volatile
For Each Cel In r.Cells
If Cel.Interior.ColorIndex = KleurCel.Interior.ColorIndex And IsNumeric(Cel.Value) Then
SOMCELKLEUR = SOMCELKLEUR + Cel.Value
End If
Next Cel
End Function

alvast bedankt voor jullie tijd.

 

[Leotaxi]

kleuren verkregen via voorwaardelijke opmaak worden niet herkend
beter werken met aantal als aanwezig of aantal als niet aanwezig

mvg
Leo

 

[bleke]

oke thnxs, iemand een oplossing hoe het wel kan werken??

gr jack

 

[Leotaxi]

Voor aanwezig

=AANTAL.ALS(F4:F40;"Aanwezig")

Voor niet aanwezig

AANTAL.ALS(F4:F40;"niet aanwezig")

mvg
Leo

 

[bleke]

Dit werkt ook heel goed, alleen jammer dat VO niet werkt met kleuren tellen...

gr jack en thnxs all