Ee inhoud van gekleurde cellen excel optellen

[Anoniem2]

Is het mogelijk om in een kolom de inhoud (getallen) van alleen de gekleurde cellen (allen als vulkleur groen en de overige er tussen wit) op te tellen.\r\n\r\nIk heb al gezocht en begrijp dat het met een macro met VBA moet. Nou ben ik daar totaal niet in thuis, dus graag zou ik iets kant en klaar zien als dat mogelijk is. \r\nMet wat uitleg hoe we dan de juiste kleurcode in vba krijgen, zodat later ook andere kleuren gebruikt kunnen worden.\r\n\r\nHet betreft Excel 2010 Nederlands.\r\n\r\nAlvast bedankt.\r\n\r\nNiek

[Anoniem2]

My wife knows everything.??? maar hier niet waarschijnlijk.

[Anoniem2]

[URL]http://natuurpics.nl/zooi/Cellentellen.xlsm[/URL]\n\nEven snel een voorbeeldje gemaakt. \n\nAls je hem wilt aanpassen heb je het tabblad ontwikkelaars nodig. \n(klik op bestand\\opties\\lint aanpassen, en zet het vinkje in de tweede kolom bij ontwikkelaars)\n\nIk heb hem zo geschreven dat hij de kleur zoekt die in vakje B1 staat. \nDat maakt het overzichtelijker en makkelijker aan te passen dan een kleurwaarde ergens in een macro.\n\nAanpassen bekijken: klik op het tabblad ontwikkelaars, op de knop visual basic\n\nsucces ermee :)

[Anoniem2]

Marc heel erg bedankt, alleen als ik hem open in Excel krijg ik allemaal rare tekens....\n\nDe ontwikkelaars tab heb ik intussen.\n\nNiek

[Anoniem2]

rechtsklik het linkje en dan \"opslaan als\" werkt.

[Anoniem2]

Perfect Marc dit is precies wat ik zocht!!!!! Thnx\n\nNiek

[Anoniem2]

Graag gedaan, alleen even opletten dat je altijd precies dezelfde kleur gebruikt, anders ga je gegarandeerd de fout in.

[Anoniem2]

Yep die had ik begrepen. (dezelfde kleur)\nBen hier best blij mee. \nHad vanmiddag al een poos zitten zoeken (want m\'n vrouw wist dit toevallig niet - zie handtekening). Maar zodra ze over VBA beginnen haak ik echt af.\n\nThnx\n\nNiek

[Anoniem2]

je kan vrij simpel een controle inbouwen of hij het getal meerekend in het totaal. \nAls je de derde regel hieronder toevoegd, zet hij achter de cel \"Check\" neer als hij wordt meegerekend. \n\n[code]\nIf Cells(regel, kolom).Interior.Color = zoekkleur Then\n totaal = totaal + Cells(regel, kolom).Value\n Cells(regel, kolom + 1).Value = \"Check\"\nEnd If\n[/code]

[Anoniem2]

Gedaan en ook dat gaat goed.:-)\n\nNiek