Serge,

Heel kort: de formule die je vond bestaat niet. 
Excel heeft geen functie zoals SOMZELFDEKLEUR. Daarom werkt ze nooit.
We kunnen wel een functie schrijven die dat doet. Die functie kan je dan in dit excel gebruiken en doet dat wat =SOMZELFDEKLEUR(....) deed.

Wat denk je?

SoftAid              

Bedankt had ook liggen zoeken en had een code gevonden.
Die ik ingegeven heb.
En dat werkt.
Alleen moet ik eerst de kleur selecteren in de cel en dan pas het getal.
Als ik eerst een getal typ en dan de kleur selecteer dan telt hij niet op.
Zal nog iets moeten aangepast worden..
Bv in cel F15 heb ik eerst het cijfer 3 getypt en dan pas de kleur rood genomen,dan werkt het niet in cel H21
Idem voor de groene en de oranje kleur.
Dat begrijp ik ni goed

Function SOMZELFDEKLEUR(Gebied As Range, Cel As Range) As Double
Dim Kleur As Integer
  Application.Volatile
  Kleur = Cel.Interior.ColorIndex
  For Each Cel In Gebied.Cells
    If Cel.Interior.ColorIndex = Kleur And IsNumeric(Cel.Value) Then
      SOMZELFDEKLEUR = SOMZELFDEKLEUR + Cel.Value
    End If
  Next Cel
End Function

Verdorie het werkte bijna,ik wil opslaan en geeft foutmelding en nu werkt het meer nimeer...
Is de eerste x dat ik gebruik maak van visual basic,zal ik de code niet opgeslagen hebben??
Toch bedankt he voor het mee opvolgen en oplossen van mijn probleem

Je kan je ook afvragen waarom de cellen in kolom F een bepaalde kleur krijgen. Het lijkt me dat dat af te leiden moet zijn uit andere kolommen (C misschien?). Als er een regel is op basis waarvan de kleur bepaald kan worden, kan je die regel ook gebruiken om het totaal per kleur/dag te berekenen.
Als er geen regel is die de kleur bepaalt moet je je afvragen wat het nut van het geheel is. Je kunt dan willekeurig zelf een kleur toekennen aan een bepaald product.

inderdaad, Willem 

Maar... in het bestand in bijlage van klusserke staan ook geen macro's.
Hij heeft de code in het bericht geplaatst, niet in het werkboek dat hij ons toegezonden heeft.

zelf heb ik het xlsx bestand opgeslagen als xlsm en dan de macro's toegevoegd.

En dan werkt alles zoals hij het vraagt.

@ xps360,

Ik vermoed dat hij het bestand gekregen heeft van zijn dieetist, met de bedoeling alles zelf in te vullen. Daarnaast denk ik dat Klusserke dit heeft willen automatiseren. Vermoedens he.....

Groeten,

SoftAid              

Denk er wel bij na dat het kleuren van een cel geen reden is tot hercalculatie van de sheet...

Hallo kluserke,

zaterdag is nog lang....     Wil je stap voor stap eens zelf proberen.
Zo leer je het wel, als je neef het doet leer jij niets....
Ik wist niet dat je niet bekend was met macro's en VBA, anders had ik van in het begin anders gereageerd, sorry...

Wil je toch zelf leren, .... dan.....

1 - Open je "Lijst dieet.xlsx"-bestand
2 - Klik op Start, klik op Opslaan Als...
3 - Bladeren naar een locatie, bvb Bureelblad (Desktop)
4 - In het Opslaan Als -venster mag je de bestandsnaam ongemoeid laten.
5 - In het keuzemenu van "Opslaan als:" kies je voor de extentie .xlsM
6 - Klik op de knop Opslaan

Je Excel opent je nieuw bestand Lijst dieet.xlsm

1 - In de menubalk, klik op "Ontwikkelaars"
2 - Klik op "Programmacode weergeven". Dit opent de VB Editor (VBE).
3 - Links zie je een lijst met projecten die aanwezig zijn in je VBEditor.
4 - Rechtsklik op "VBAProject (Lijst dieet.xlsm)" en kies in het menu voor Invoegen -> Module
5 - In je project  (Lijst dieet.xlsm) zie je nu een Module1.
6 - Kopieer de volgende code:
     Function SOMZELFDEKLEUR(rng As Range, kleur As Range) As Double
    Dim c As Range
    For Each c In rng
        If c.Interior.Color = kleur.Interior.Color Then
           SOMZELFDEKLEUR = SOMZELFDEKLEUR + c.Value
        End If
    Next c
    End Function7 - Plak ze (Ctrl +V) in het linker vak van Module1, onder Option Explicit
8 - Sluit de VBEditor
9 - Terug in je werkblad, kies "Bestand" en klik op Opslaan.
10 - Sluit het bestand en open Lijst dieet.xlsm opnieuw.

Je formules in H21,I21 en J21 werken nu.

Succes.

SoftAid              

Ik blijf mijn twijfels houden of het nodig is om zelf de kleur te bepalen en vervolgens achteraf op een moeilijke manier te moeten bepalen welke kleur je had gebruikt.

Om je voorbeeld te volgen: als je magere platte kaas eet maak je de cel in kolom F groen. Dat doe je niet zomaar. Dat doe je waarschijnlijk omdat platte kaas weinig Kcal per 100 gram bevat. En dat staat als het goed is in kolom C. De kleur van kolom kan je dus met voorwaardelijke opmaak bepalen. Ik neem aan dat je weet wat de voorwaarden voor de diverse kleuren zijn. Als je dat niet niet weet kan je ook niet handmatig de kleur bepalen.

Je zou vervolgens drie (verborgen) kolommen na kolom F kunnen zetten voor het aantal groen, oranje en geel. Dat doe je met normale formules op basis van het aantal in F en de regels die gelden voor de kleur. Het totaal aantal porties voor de week bereken je simpel door de genoemde kolommen te sommeren.

Op die manier heb je dus helemaal geen vba nodig. Ik werk vanavond een voorbeeld uit.