SUMIF op basis van Kleur

[Kloppie24]

Hallo,

Ik wil graag van een serie getallen, de som berekenen. Hierbij hebben sommige getallen een Backgroundcolor Geel en sommigen niet. Ik wil ervoor zorgen dat alleen de getallen die de gele achtergrondkleur hebben worden opgeteld.

Nu heb ik een functie van internet gehaald, welke perfect werkt namelijk:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range
Dim lCol As Long
Dim vResult

lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function


Het probleem is dat dit alleen werkt wanneer de cellen handmatig van een achtergrondkleur zijn voorzien. Mijn cellen worden geel gekleurd op basis van conditional formatting, dan werkt bovenstaande formule niet. Iemand een oplossing voor dit probleem?

 

[anton44]

Mogelijk kan ASAP utilities je verder helpen (in NL instelbaar)
http://www.asap-utilities.com/index.php

 

[wiki]

volgens mij kun je dan beter als voorwaarde dezelfde als in de voorwaardelijke opmaak gebruiken ipv de celkleur

gr wim

 

[Kloppie24]

Hey Wiki,

Dat begrijp ik niet helemaal. Het probleem is juist, dat wanneer ik gebruik maak van voorwaardelijke opmaak, ik niet de SUMIF kan gebruiken.

 

[wiki]

Kun je een voorbeeldbestandje posten.

gr wim

 

[anton44]

Daarom herhaal ik mijn advies om ASAP utilities te gebruiken.

 

[snb]

Je maakt geen gebruik van SUMIF, dus je redenering klopt niet.
Het maakt niet uit hoe een achtergrondkleur is ingesteld, alleen de kleur doet er toe.
Dit lijkt mij voldoende:
rColor is de kleurindex waarop getest wordt, rRange het gebied dat getest wordt.

Function ColorFunction(rColor As Integer, rRange As Range)
  For Each cl In rRange
    If cl.Interior.ColorIndex = rColor Then colorfunction= colorfunction + cl.value
  Next
End Function