excel cellen op kleur sorteren/optellen

[Verwijderd]

in een kolom heb ik een aantal cellen gekleurd
hoe krijg ik het voor elkaar dat onder aan deze kolom
dezelfde kleur cellen bij elkaar worden opgeteld

er moet dus op kleur worden geselecteerd

[Verwijderd]

[Dido]

Eens kijken naar SUMIF, en uitvogelen hoe je die kleur (celeigenschap) in je IF verwerkt?

[Verwijderd]

ja daar moet je het wel zoeken, maar tot op heden lukt het niet.

[Maasluip]

Met een macro moet het lukken, je kunt in de macro namelijk de kleur uitlezen.

[Verwijderd]

enneuhhhh

hoe doe ik dat?

[KingRichard]

Zie ook [rml][ excel] Tellen adhv kleuren[/rml] en natuurlijk [search=excel kleuren]

[ Voor 42% gewijzigd door KingRichard op 12-02-2004 21:24 ]

[Lustucru]

Het lijkt toch moeilijker dan het lijkt te zijn (nederlands ook), maar er is vraag naar:
Plak het volgende in een module:

code:

Public Function SomKleur(Optelbereik As Range, referentie As Range) As Double
    application.volatile
    Dim totaal As double, kleur As Long
    Dim c As Range
    
    kleur = referentie.Interior.ColorIndex
    For Each c In Optelbereik.Cells
        If c.Interior.ColorIndex = kleur and IsNumeric(c.value) Then
            totaal = totaal +c.Value
        End If
    Next c
    
    somkleur = totaal
End Function

En je hebt nu voor in je werkblad een functie SomKleur. bv:
=SomKleur(B4:B7;A10) telt alle cellen in b4:b7 bij elkaar op die dezelfde achtergrond kleur hebben als cel A10.

[ Voor 6% gewijzigd door Lustucru op 28-06-2004 09:37 ]

[Verwijderd]

tnx!!!!!!

dit is zeker niet simpel maar hier kom ik allicht verder mee

[Lustucru]

Verwijderd schreef op 12 februari 2004 @ 23:01:
tnx!!!!!!

dit is zeker niet simpel maar hier kom ik allicht verder mee

Fijn dan maar weer. Maar haal ajb dat stomme val() weg, dat slaat nergens op. Stomme amerikanen met hun punten.
Moet je wel die if voorwaarde uitbreiden:

code:

        If c.Interior.ColorIndex = kleur and IsNumeric(c.value) Then

[ Voor 1% gewijzigd door Lustucru op 12-02-2004 23:30 . Reden: weg was weg ]

[Verwijderd]

voor alle duidelijkheid
geef hem dan nog eens compleet

(ik moest geloof ik maar eens excel for dummies aanschaffen)

[Lustucru]

Verwijderd schreef op 13 februari 2004 @ 11:15:
voor alle duidelijkheid
geef hem dan nog eens compleet

(ik moest geloof ik maar eens excel for dummies aanschaffen)

Dat lijkt me geen slecht plan . Stuur maar een mailtje, dan krijg je een voorbeeld terug.

[tHe_BiNk]

(ik moest geloof ik maar eens excel for dummies aanschaffen)

Die heb ik hier liggen, maar daar staat het echt niet in, je moet advanced dummie hebben, LOL.

[Verwijderd]

Niesje schreef op 13 februari 2004 @ 13:58:
[...]

Dat lijkt me geen slecht plan . Stuur maar een mailtje, dan krijg je een voorbeeld terug.

geloof niet dat ik er uit kom nee
naar welk mailadres?

[Lustucru]

Dat krijg je nu als je geen faq's leest. Mijn mailadres vind je in mijn profiel

[Verwijderd]

Even een kick voor dit vrij oude topic.
De module die in dit topic genoemd wordt, werkt perfect en heeft mij echt superveel geholpen.

Het enige probleem wat ik hier nog aan ondervind, is dat als ik binnen het bereik van deze functie later nog een extra cel de "optelkleur" geef, deze niet automatisch meegenomen wordt in de formule. Om deze bij te laten werken moet je eerst naar de cel gaan waar de SomKleur functie staat en F2 en Enter drukken, zodat hij de functie opnieuw uitvoert.

Een simpele functie als SUM, wordt echter wel altijd automatisch bijgewerkt indien er gegevens binnen het bereik van deze functie veranderen. Is het ook mogelijk om dit voor "SomKleur" te doen?

[Verwijderd]

Iemand?
Als een cel al de referentiekleur voor de SomKleur functie heeft en de waarde in die cel wordt later bijgewerkt, werkt SomKleur zichzelf ook automatisch bij, maar wanneer een cel binnen het bereik van de functie later van kleur verandert, wordt SomKleur dus niet automatisch bijgewerkt.

Oplossingen?

[Lustucru]

Niet.

Excel is slim genoeg om als een waarde in een cel verandert alle van die cel afhankelijke waarden opnieuw te berekenen, maar houdt er geen rekening mee dat formules wel eens afhankelijk kunnen zijn van opmaak. Ook het sheet change vent fired niet als je de opmaak wijzigt.

Je kunt nog in het selectionchange() event gaan liggen rommelen, maar dat is echt een houtje touwtje oplossing. 1x op F9 drukken is dan net zo effectief.

[Maasluip]

Ik ken het probleem, maar er is volgens mij geen oplossing voor behalve F9 te drukken. Blijbaar wordt het veranderen van de kleur niet als trigger voor hercalculatie van het sheet gezien. Bug of feature? Waarschijnlijk het laatste. Omdat er al geen standaard formules zijn die iets met kleur doen is het ook niet logisch om een recalculate te doen als je de kleur van een cell veranderd.

[warhamstr]

Lustucru schreef op donderdag 12 februari 2004 @ 21:51:
Het lijkt toch moeilijker dan het lijkt te zijn (nederlands ook), maar er is vraag naar:
Plak het volgende in een module:

code:

Public Function SomKleur(Optelbereik As Range, referentie As Range) As Double
    application.volatile
    Dim totaal As double, kleur As Long
    Dim c As Range
    
    kleur = referentie.Interior.ColorIndex
    For Each c In Optelbereik.Cells
        If c.Interior.ColorIndex = kleur and IsNumeric(c.value) Then
            totaal = totaal +c.Value
        End If
    Next c
    
    somkleur = totaal
End Function

En je hebt nu voor in je werkblad een functie SomKleur. bv:
=SomKleur(B4:B7;A10) telt alle cellen in b4:b7 bij elkaar op die dezelfde achtergrond kleur hebben als cel A10.

Held

[g0tanks]

warhamstr schreef op woensdag 8 september 2021 @ 14:11:
[...]

Held

Een bedankje kan met een thumbs-up of via een persoonlijke bericht, daarvoor hoef je geen topic uit 2004 te kicken.