Gekleurde groene cellen per kolom optellen met =SomKleur

[Senso]

Zou deze werken of zitten er direct al fouten in?

Public Function SomKleur(C1,C100;E1,E100;G1,G100) As Double
    application.volatile
    Dim totaal As double, kleur As Long
    Dim c As Range
    
    kleur = +5
    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

Ik wil dus in kolom C cel C102 invullen =SomKleur(C1:C100) en dat dan in die kolom de cellen met een groene kleur worden opgeteld. En dat ook voor kolom E en G allemaal wel apart.

 

[alphamax]

Er zitten direct al fouten in de eerste regel.
Een functie kan je niet direct al vullen met een bereik
Een functie moet je vullen met een variable.
Ook het nummer van je kleur is niet goed, bron: http://dmcritchie.mvps.org/excel/colors.htm

Ik denk dat je dit bedoelt.

Public Function SomKleur(Optelbereik As Range) As Double
    Dim totaal As Double    '' , kleur As Long
    Dim c As Range
    kleur = 4    '4=groen(0,255,0), 5=blauw (0,0,255)
    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

 

[Senso]

Het lukt niet, zal het bestand zo plaatsen. Excel 2007 H&S
Bekijk bijlage Nieuwe pc.xlsm

 

[VenA]

Omdat het nog nooit voorgekomen is. De beperkingen van het optellen van kleurtjes mag je zelf even opzoeken.

 

[Senso]

Oké, beiden bedankt.:thumb: Ga er verder mee aan de slag.