kleur tellen in rij

[erikkoster]

Beste,

Weet iemand of er een formule bestaat om kleuren in een rij te tellen?
Ik wil graag in een rij alle rode cellen tellen en niet de overige kleuren.

Groet Erik

 

[ExcelAmateur]

erikkoster,

Heb je de zoekmachine "Doorzoek dit forum" al gebruikt?
Daar staan zat voorbeelden.

 

[Warme bakkertje]

Function AantalGekleurdeCellen(Gebied As Range, WhatColorIndex As Integer) As Long
  Dim cel As Range
  For Each cel In Gebied.Cells
    AantalGekleurdeCellen = AantalGekleurdeCellen - (cel.Interior.ColorIndex = WhatColorIndex)
  Next cel
 End Function

Gebied = bereik vd rij die je wil tellen
WhatColorIndex = kleurindex vd kleur die je wil tellen (rood = 3)

 

[RaymondC]

Wie wat bewaart heeft wat, ooit onderstaande code op de www gevonden.
Weet niet wie de auteur is/was.

Function TelAchtergrondkleur(Bereik As range, Reference As range)
      Dim Cl As range
      Dim ClrCount As Long
  For Each Cl In Bereik
               If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
               ClrCount = ClrCount + 1
            End If
     Next
     TelAchtergrondkleur = ClrCount
End Function

 

[erikkoster]

Bedankt voor jullie reactie.
Maar hoe moet ik deze code gebruiken? Ik heb hiermee namelijk nog nooit gewerkt.

Groet Erik

 

[Roncancio]

In Excel: ALT-F11.
Je verschijnt in het VBE-menu.
Gebruik daar de sneltoets CTRL-R.
Kies vervolgens voor Invoegen - Module en plak daar de code in.
Je kunt nu in Excel de functie gebruiken.

Bijv.:

=TelAchtergrondkleur(A1:A10;A1)

Aantal cellen met dezelfde achtergrondkleur als cel A1.

en

=AantalGekleurdeCellen(A1:A10;3)

Aantal cellen met rode achtergrondkleur.

Met vriendelijke groet,


Roncancio

 

[erikkoster]

Bedankt voor de informatie.
Heb geprobeerd het toe te passen maar kom er niet helemaal uit.
Heb het nu op een andere manier opgelost en dit werkt voor mij goed.

Groet, Erik

 

[OctaFish]

Dan is het in het kader van kennis delen misschien wel fijn om te vertellen hoe je het nu hebt opgelost.

 

[erikkoster]

Wat ik graag wilde is dat alles automatisch geteld zou worden. Zodat het makkelijker zou worden voor mijn opvolgers. Maar omdat het om weinig cellen ging heb ik het handmatig ingevoerd.

 

[Roncancio]

Het kan ook automatisch maar men is vergeten om Application.Volatile in de code toe te voegen.
Dus:

Function AantalGekleurdeCellen(Gebied As Range, WhatColorIndex As Integer) As Long
  Dim cel As Range
Application.Volatile
  For Each cel In Gebied.Cells
    AantalGekleurdeCellen = AantalGekleurdeCellen - (cel.Interior.ColorIndex = WhatColorIndex)
  Next cel
 End Function

...en ...

Function TelAchtergrondkleur(Bereik As range, Reference As range)
      Dim Cl As range
      Dim ClrCount As Long
Application.Volatile
  For Each Cl In Bereik
               If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
               ClrCount = ClrCount + 1
            End If
     Next
     TelAchtergrondkleur = ClrCount
End Function

Met vriendelijke groet,


Roncancio

 

[erikkoster]

Beste Roncanio,

Ik heb de code ingevoerd en in cel L240 de volgende formule gezet: =TelAchtergrondkleur(D240:J240;3). In deze rij heeft cel I240 een rode achtergrondkleur. Maar dit wordt niet aangegeven. in cel L240 staat alleen maar #WAARDE!.
Wat doe ik nu dan fout?
Groet

 

[Roncancio]

Verander de 3 in de formule in het celadres waar de kleur staat.

Bijv.:

=TelAchtergrondkleur(D240:J240;A1)

De cellen in het bereik D240 t/m J240 worden vergeleken met de kleur in cel A1.

Met vriendelijke groet,


Roncancio

 

[erikkoster]

Ik heb 3 veranderd naar de cel waar de kleur in staat (O1) maar dan is de uitkomt 0.
Verander ik het naar de cel waarin de kleur staat (I240) van de rij die geteld moet worden dan is de uitkomst 7.
Dus op een of andere manier wordt de kleur niet geteld.
Heb je een oplossing?

Met vriendelijke groet,
Erik

 

[Roncancio]

Zijn de kleuren wel identiek?
Je zou de opmaak van cel J240 naar cel O1 kunnen kopiëren.

Met vriendelijke groet,


Roncanio

 

[erikkoster]

Ja, de kleuren identiek.
En als ik aangeef dat de formule de kleur uit cel I240 (wat toch de goede kleur is) moet gebruiken kan het resultaat toch niet 7 zijn als er maar 1 cel een rode kleur heeft in die rij?

Groet Erik

 

[Roncancio]

Worden de cellen gekleurd dmv voorwaardelijke opmaak?
Want dan gaat het namelijk niet werken.

Met vriendelijke groet,


Roncancio

 

[erikkoster]

Ja ze worden gekleurd door voorwaardelijke opmaak?
Bestaat er een andere formule om deze gekleurde cellen te tellen?

Groet Erik

 

[Warme bakkertje]

Dan zal je toch eerst en vooral met een voorbeeldbestand moeten komen waarin je formules met CF zitten, want simpel is het alleszins niet.