kleur van cellen herkennen en optellen

[Thorvald]

Hoi, Omdat ik tegen een probleem in excel aanloop ben ik op dit forum gekomen, dus hopelijk weet iemand hoe ik dit kan doen?

het volgende:

ik gebruik excel als boekhoud programma.

nu markeer ik mijn betaald of niet betaalde facturen met een kleur. dus ik check mijn bankrekening, als er een factuur betaald is maak ik de cel groen, en als ie niet betaald is, blijft de cel rood.

in het totaal-overzicht zou ik graag willen dat een bepaalde cel aangeeft wat de som is van het aantal rode cellen, en wat de som is van het aantal groene cellen?

Is dit uberhaupt mogelijk als ik zelf de kleuren aan de cellen toe ken?

ik heb een simpel voorbeeldje toegvoegd van wat ik zou willen>

alvast bedankt

 

[Hoornvan]

Thorvald,

Deze formule telt van Kolom J in het bereik J1:J7 het totale bedrag van de geel gekleurde cellen.
Misschien dat je er wat aan heb.

=SOMCELKLEUR(J1:J7;36)

Kijk in het bestandje (is niet van mij)

 

[Roncancio]

Er zijn verschillende manieren.
In deze topic worden ze behandeld of uitgewerkt.

Met vriendelijke groet,


Roncancio

 

[oeldere]

somproduct

Is dit uberhaupt mogelijk als ik zelf de kleuren aan de cellen toe ken?

Ja, dit heb ik wel ergens voorbij zien komen, maar ik weet zelf de oplossing hiervoor niet.

zelf zou ik met een hulpkolom werken.

als bijlage, mijn oplossing.

in kolom c wordt gezocht naar de lege cellen en deze worden opgeteld.

heb je vragen, laat het gewoon even weten.

Met vriendelijke groeten,

Oeldere

 

[Cobbe]

Ik heb ook een oplossing voor u, zonder VBA.

Cobbe

 

[oeldere]

Ik heb ook een oplossing voor u, zonder VBA.

Cobbe

Beste cobbe,

bij mij geeft de formule als uitkomst 0.
in de verborgen kolom (c) komt de foutmelding #ref!

komt dit omdat ik met een engelse versie van excel werk?

Met vriendelijke groeten,

Oeldere

 

[Cobbe]

Dat komt door een taalfout.
Je zou volgende formule in Engels moeten vertalen:

=CEL.LEZEN(63;VERSCHUIVING(INDIRECT("RK";ONWAAR);;-1))

Deze dient als naamdefinitie.

Cobbe

 

[oeldere]

toppie en bedankt voor de snelle reactie,:thumb:

vraagsteller heeft misschien ook engelse versie (vandaar de vraag).

met vriendelijke groeten,

Oeldere

 

[Thorvald]

Ik heb ook een oplossing voor u, zonder VBA.

Cobbe

Beste Cobbe,

bedankt voor je reactie

De formule in mijn excel geeft de juiste getallen weer, nu moet ik de formule snappen en inplannen in mijn eigen bestand.

Uw formule:

=SOM.ALS(Blad2!$C$2:$C$9;3;Blad2!$B$2:$B$9)

Het gedeelte $C$2:$C$9 kan ik niet herleiden, wat zegt dit?

alvast bedankt voor de genomen moeite

gr Thorvald

 

[Cobbe]

=SOM.ALS(Blad2!$C$2:$C$9;3;Blad2!$B$2:$B$9)

Op blad2!$C$2:$C$9 staat de kleurcode van de voorliggende cel ($B$2:$B$9)
Dus geeft de formule:
Maak de som van de cellen in kolom B als in kolom C de kleurcode 3 staat.

Mvgr. Cobbe

 

[Thorvald]

=SOM.ALS(Blad2!$C$2:$C$9;3;Blad2!$B$2:$B$9)

Dus geeft de formule:
Maak de som van de cellen in kolom B als in kolom C de kleurcode 3 staat.

aah, die kolom c had ik even niet gezien, daar staat een waarde in vermeld, maar als ik een van de rode cellen groen maak, omdat deze betaald is veranderd het resultaat niet op blad 1. dan moet ik de waarde veranderen in kolom C van 3 naar 4.

Ik zou graag willen dat het automatisch gaat.

toch bedankt voor de info
Ik ga verder puzzelen

gr Thorvald

 

[Cobbe]

Natuurlijk gebeurt dit automatisch, maar de berekening gebeurt niet na een kleurwisseling, wel na een dubbelklik.
Je kunt dit opvangen door een trigger achter een knop te zetten of de kleuring via een andere cel(berekening) laten gebeuren.

Cobbe

 

[Hoornvan]

Thorvald,

Kijk eens of het nu zo is als dat je bedoeld.
Gebruik Blad2, daar heb ik de verandering gemaakt.

 

[Cobbe]

Ik heb dan toch een oplossing in VBA met 2 knoppen om te kleuren.

Zie maar.

Cobbe

 

[Ginger]

nu markeer ik mijn betaald of niet betaalde facturen met een kleur. dus ik check mijn bankrekening, als er een factuur betaald is maak ik de cel groen, en als ie niet betaald is, blijft de cel rood.

Waarom willen mensen toch zo graag werken met kleuren alsof deze een waarde vertegenwoordigen??? In een echt boekhoudpakket met een database er achter gebeurt dat ook echt niet hoor!
Naar mijn idee moet je dus je database goed opzetten en een boolean (Yes/No; True/False; 1/0; enz...) in een extra veld (= kolom) gebruiken om aan te geven of er betaald is of niet. Dat je vervolgens een conditional format (voorwaardelijke opmaak) hangt aan die booleanwaarde om snel overzicht te hebben, is natuurlijk prima. Maar op de door jou voorgestelde methode ga je vroeger of later (nu dus!) voor problemen komen.

Groet, Leo

 

[Hoornvan]

Cobbe,

Ik heb dan toch een oplossing in VBA met 2 knoppen om te kleuren.

Ik moet zeggen het werkt goed.
Alleen jammer dat hij niet alles veranderd (de bedragen).

Als je een cel Rood of groen maakt veranderd het bedrag van die kleur maar de andere uitkomst blijft op het oude bedrag staan.

 

[Hoornvan]

Kijk op Blad2 nu worden de bedragen wel gecorrigeerd.

 

[Cobbe]

Alleen jammer dat hij niet alles veranderd (de bedragen).

Ja stom hé, even vergeten.
Cobbe

 

[trucker10]

@ Wim , moesten de bedragen niet op blad1 zichtbaar worden ? bij deze mijn poging tot , vergelijkbaar met dat van Cobbe waar dit ook al zo was .

 

[Warme bakkertje]

Op deze manier doorloop je de lus maar 1 keer

Private Sub Bereken()
If Intersect(ActiveCell, [B2:B100]) Is Nothing Then Exit Sub
For Each c In [Blad2!B2:B10]
    If c.Interior.ColorIndex = 4 Then
        totaal = totaal + c.Value
    ElseIf c.Interior.ColorIndex = 3 Then
        totaal1 = totaal1 + c.Value
    End If
Next
Sheets(1).[B2] = totaal
Sheets(1).[B4] = totaal1
End Sub