Belangrijk: ComputerIdee Forum Huisregels | Wachtwoord vergeten?

Ga terug   Computer Idee Forum > Software > Software Overige

Notices

Antwoord
 
Discussietools Weergave
Oud 1 December 2013, 16:26   #1
Niekie30
 
Niekie30's schermafbeelding
 
Geregistreerd: 31 December 2009
Locatie: Westland
Berichten: 15.797
Standaard Ee inhoud van gekleurde cellen excel optellen

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.

Ik 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.
Met wat uitleg hoe we dan de juiste kleurcode in vba krijgen, zodat later ook andere kleuren gebruikt kunnen worden.

Het betreft Excel 2010 Nederlands.

Alvast bedankt.

Niek
__________________
I don't need google. My wife knows everything.
Niekie30 is offline   Met citaat antwoorden
Oud 1 December 2013, 18:17   #2
Marc H
 
Geregistreerd: 13 April 2005
Berichten: 1.027
Standaard

http://natuurpics.nl/zooi/Cellentellen.xlsm

Even snel een voorbeeldje gemaakt.

Als je hem wilt aanpassen heb je het tabblad ontwikkelaars nodig.
(klik op bestand\opties\lint aanpassen, en zet het vinkje in de tweede kolom bij ontwikkelaars)

Ik heb hem zo geschreven dat hij de kleur zoekt die in vakje B1 staat.
Dat maakt het overzichtelijker en makkelijker aan te passen dan een kleurwaarde ergens in een macro.

Aanpassen bekijken: klik op het tabblad ontwikkelaars, op de knop visual basic

succes ermee
Marc H is offline   Met citaat antwoorden
Oud 1 December 2013, 18:33   #3
Niekie30
 
Niekie30's schermafbeelding
 
Geregistreerd: 31 December 2009
Locatie: Westland
Berichten: 15.797
Standaard

Marc heel erg bedankt, alleen als ik hem open in Excel krijg ik allemaal rare tekens....

De ontwikkelaars tab heb ik intussen.

Niek
__________________
I don't need google. My wife knows everything.
Niekie30 is offline   Met citaat antwoorden
Oud 1 December 2013, 18:40   #4
Marc H
 
Geregistreerd: 13 April 2005
Berichten: 1.027
Standaard

rechtsklik het linkje en dan "opslaan als" werkt.
Marc H is offline   Met citaat antwoorden
Oud 1 December 2013, 18:43   #5
Niekie30
 
Niekie30's schermafbeelding
 
Geregistreerd: 31 December 2009
Locatie: Westland
Berichten: 15.797
Standaard

Perfect Marc dit is precies wat ik zocht!!!!! Thnx

Niek
__________________
I don't need google. My wife knows everything.

Laatst gewijzigd door Niekie30 : 1 December 2013 om 18:57
Niekie30 is offline   Met citaat antwoorden
Oud 1 December 2013, 18:48   #6
Marc H
 
Geregistreerd: 13 April 2005
Berichten: 1.027
Standaard

Graag gedaan, alleen even opletten dat je altijd precies dezelfde kleur gebruikt, anders ga je gegarandeerd de fout in.
Marc H is offline   Met citaat antwoorden
Oud 1 December 2013, 18:56   #7
Niekie30
 
Niekie30's schermafbeelding
 
Geregistreerd: 31 December 2009
Locatie: Westland
Berichten: 15.797
Standaard

Yep die had ik begrepen. (dezelfde kleur)
Ben hier best blij mee.
Had 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.

Thnx

Niek
__________________
I don't need google. My wife knows everything.

Laatst gewijzigd door Niekie30 : 1 December 2013 om 22:49
Niekie30 is offline   Met citaat antwoorden
Oud 1 December 2013, 19:07   #8
Marc H
 
Geregistreerd: 13 April 2005
Berichten: 1.027
Standaard

je kan vrij simpel een controle inbouwen of hij het getal meerekend in het totaal.
Als je de derde regel hieronder toevoegd, zet hij achter de cel "Check" neer als hij wordt meegerekend.

Code:
If Cells(regel, kolom).Interior.Color = zoekkleur Then
        totaal = totaal + Cells(regel, kolom).Value
        Cells(regel, kolom + 1).Value = "Check"
End If
Marc H is offline   Met citaat antwoorden
Oud 1 December 2013, 22:36   #9
Niekie30
 
Niekie30's schermafbeelding
 
Geregistreerd: 31 December 2009
Locatie: Westland
Berichten: 15.797
Standaard

Gedaan en ook dat gaat goed.

Niek
__________________
I don't need google. My wife knows everything.
Niekie30 is offline   Met citaat antwoorden
Antwoord

Discussietools
Weergave

Regels voor berichten
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Aan
Smileys zijn Aan
[IMG]-code is Aan
HTML-code is Uit

Forumnavigatie


Alle tijden zijn GMT +1. Het is nu 16:20.


Powered by vBulletin Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.