WFP Gekleurde velden optellen per kleur

[Naziha]

Beste,
Ik heb een template gemaakt voor de werkverdeling over een hele maand. In deze template kan ik per taak en per dag aangeven hoelang hierop zal gewerkt worden en dus wordt er een cijfer in een cel geplaats en de cel wordt ook gekleurd met degene die op deze taak gaat werken; Dus kleur rood is werknemer 1, kleur groen, is werknemer 2,...
En nu wil ik onderaan dat er per dag een som wordt gemaakt per medewerker (kleur).
En heb al veel gezien ivm VBA maar ik ken dit helemaal niet :/

Bedankt alvast voor de hulp!!!
Naz

 

[Warme bakkertje]

Zijn deze kleuren handmatig of met Voorwaardelijke Opmaak aangebracht ?

 

[Naziha]

Ze zijn handmatig aangebracht.

 

[Warme bakkertje]

Function AantalGekleurdeCellen(Gebied As Range, WhatColorIndex As Integer) As Long
  Dim cel As Range
  For Each cel In Gebied.Cells
    AantalGekleurdeCellen = AantalGekleurdeCellen - (cel.Interior.ColorIndex = WhatColorIndex)
  Next cel
 End Function

Gebied is de range waar alle gekleurde cellen instaan, WhatColorIndex is het indexnr v/d kleur die opgeteld moet worden.
Als het niet duidelijk is, plaats dan even een voorbeeldbestandje en dan passen we het er even in.
PS : De functie moet je in een standaardmodule plaatsen.

 

[Naziha]

Bekijk bijlage WFP_20121116 planning (4).xlsx

Hey het lukte me eerst niet omdat het bestand te groot is maar heb er heel wat uitgehaald. Zie bestand in bijlage. Onderaan zou ik de som per kleur/per dag willen maken. thx!!!

 

[Warme bakkertje]

Ik heb al enkele kolommen ingevuld zodat je werkwijze kan zien.
http://www.mijnbestand.nl/Bestand-8R77VGEFX338.xlsm

 

[Naziha]

Enorm bedankt!!! Het is gelukt - many thanks!


:thumb: