rekenen met cellen in een bepaalde achtergrondkleur

[janemmers]

Is het mogelijk om waardes in cellen met een bepaalde achtergrondkleur bij elkaar op te tellen.
Als voorbeeld heb ik een rooster van 2021 bijgevoegd
Per maand moeten de waardes bij elkaar geteld worden.
Op het einde van de maand staan 3 kolommen (rest-vak-PBL) Hier moeten voor iedere maand worden geteld
Rest: de waardes in de cellen zonder achtergrondkleur
Vak: de waardes in de cellen met een groene achtergrondkleur
PBL: de waardes in de cellen met een oranje achtergrondkleur

Als voorbeeld heb ik de waardes van januari handmatig opgeteld in het bestand.

|DE vraag is of iemand weet hoe dit te realiseren

 

[LucHeyndrickx]

Wellicht kleur je de cellen handmatig... en dat is echt niet zo'n schitterend idee om er later mee te tellen .
Misschien is het beter om je bestand anders op te bouwen. in plaats van 1 lijn per maand te gebruiken, zou je 3 lijnen kunnen gebruiken, waarbij de eerste rij bijvoorbeeld voor werk is, de tweede voor vakantie enz.
Op die manier wordt het optellen eenvoudiger. Je zou op die manier zelfs gebruik kunnen maken van voorwaardelijke opmaak, waardoor ze alsnog een kleur krijgen

 

[JEC.]

Het kan wel, maar als de kleur net iets ander is zal het niet meer werken
Plak deze in een module en run de code

Sub j()
 ReDim jv(11, 2)
  For i = 0 To 11
   For ii = 3 To 33
     Select Case Cells(i + 3, ii).Interior.Color
       Case 16777215                                                            'geen kleur
        jv(i, 0) = jv(i, 0) + Cells(i + 3, ii).Value
       Case 5296274                                                              'groen 
        jv(i, 1) = jv(i, 1) + Cells(i + 3, ii).Value
       Case 49407                                                                 'oranje
        jv(i, 2) = jv(i, 2) + Cells(i + 3, ii).Value
     End Select
    Next
   Next
 Cells(3, 34).Resize(12, 3) = jv
End Sub