Kleuren tellen dmv VBA

Status
Niet open voor verdere reacties.
De kleuren zijn niet hetzelfde.
Code: 
Sub VenA()
  MsgBox [u3].Interior.Color.Index
  MsgBox [E4].Interior.Color.Index
End Sub

De hele UDF kan je reduceren tot
Code: 
Function GetColorCount(CountRange As Range, CountColor As Range)
  For Each cl In CountRange
    If cl.Interior.ColorIndex = CountColor.Interior.ColorIndex Then GetColorCount = GetColorCount + 1
  Next cl
End Function
 
Dank,

De kleuren zijn wel hetzelfde maar de telfunctie werkt dus kennelijk pas als je de kleurecode 198, 239, 206 handmatig toevoegd.

Ik heb deze in de conditional formatting gedaan maar hij ziet deze dan dus niet.... iemand enig idee ?
 
Ook al is het om te oefenen..
Je kleurt de cellen dmv voorwaardelijke opmaak, tel dan ook op basis van deze voorwaarde op en niet op basis van de gegeven kleur

je krijgt dan zoiets voor kolom E:

Code: 
=SUMPRODUCT(N(E3:E15=R3:R15))


++ wil je dit toch doen, kijk dan naar .displayformat in vba
 
Laatst bewerkt:
Wellicht dat je het kunt laten zien in de betrefende excelsheet want ik kom er niet uit (als leek)
 
Die N-functie doet in dit geval hetzelfde als een dubbel - teken (--) (kijk naar naar de help bij de functies ;)

Het maakt van een matrix met True en False ,1-tjes en 0-len en deze kun je dus middels de sumproduct optellen
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan