Somkleur

[Robert100]

Goedemiddag,

Ik wil graag de somkleur hebben (zie bijlage) met onderstaande module.

Het lukt mij niet

Function SOMKLEUR(varRange As Range, varColor As Range)
Dim cell As Range
For Each cell In Application.Intersect(varRange, varRange.Parent.UsedRange)
If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then
SOMKLEUR = SOMKLEUR + cell.Value
End If
Next
End Function

 

[jkpieterse]

Excel kan niet echt met kleuren rekenen, beter is om waarden in cellen te stoppen en dan SOMMEN.ALS of AANTALLEN.ALS te gebruiken om te rekenen op die inhoud.

 

[edmoor]

Die functie rekent ook met de inhoud. Hij telt de waarden op van cellen met de opgegeven kleur. Hij is kennelijk alleen zodanig aangepast dat hij niet meer werkt.

 

[VenA]

Probeer het zo eens.

Function SOMKLEUR(varRange As Range, varColor As Range)
Dim cl As Range
For Each cl In varRange
    If cl.Interior.ColorIndex = varColor.Interior.ColorIndex Then SOMKLEUR = SOMKLEUR + cl.Value
Next
End Function

 

[gast0660]

Ik zie dat je bepaalde kennis hebt van VBA, mischien kan je hier de nodige inspiratie uithalen?
Bekijk bijlage Kleur tellen2.xlsb

 

[Robert100]

Ik heb het voorbeeld van gast0660 en dat van VenA uitgeprobeerd.

Het lukt mij nog steeds niet.

Kunnen jullie het in mijn bestand is uitproberen?

 

[Cobbe]

Indien uw cellen gekleurd worden via VO zal het nooit lukken als je de voorwaarde tot kleuren niet mee opneemt in je code.

 

[Robert100]

Dag Cobbe,
Ik heb de code in mijn bestand opgenomen maar dan lukt het nog niet.
gr

 

[E v R]

Plaats de door VenA aangepaste code in een module, niet in het code-gedeelte van de sheet

 

[Cobbe]

Ik heb voor u de eerste rij gedaan.

 

[Robert100]

Bedankt allemaal.
Gr.