gekleurde getallen optellen

[bouduif]

M.H.,

Kunnen gekleurde getallen dmv een formule opgeteld worden?

met vr.groet
D.BoumaBekijk bijlage Bruto loon dragers test 2012.xlsx

 

[sylvester-ponte]

hallo Bouma
met deze function gaat het

Function KleurSom(Kleur As Range, OptelRange As Range)
    Dim R As Range
    KleurSom = 0
    For Each R In OptelRange
        If R.Font.Color = Kleur.Interior.Color Then
            KleurSom = KleurSom + R
        End If
    Next R
End Function

het probleem is het herberekenen van een function niet gestart wordt door kleur verandering
dus is deze macro aan de het betreffende bald toegevoegd

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.CalculateFull
End Sub

dus pas als je van cel wisseld wordt er herberekend
Bekijk bijlage Bruto loon dragers test 2012 met formule.xlsm
groet sylvester