aantal celkleuren tellen in meerdere kolommen

[Herwin1973]

Wie kan mij vertellen hoe ik meerdere celkleuren uit meerder kolommen bij elkaar op kan tellen ik gebruik de volgende formule:

=AANTALZELFDEKLEUR(B4:B27;G4:G27;M4:M27;B13)

zodra ik op enter druk krijg ik de mededeling WAARDE!
...

excel 2013
...
Ik heb de formule voor het tellen van de gekleurde cellen al geprogrammeerd.
Als ik het hele werkblad selecteer dan telt hij wel de cellen en als ik 3 kolommen selecteer krijg ik de mededeling "WAARDE!", wie kan mij helpen!!
...

[dix-neuf]

Herwin1973 schreef op zondag 20 november 2022 @ 12:58:
Ik heb de formule voor het tellen van de gekleurde cellen al geprogrammeerd.

Als je nu eens zou vertellen hoe die functie er uitziet, dan valt er mogelijk wat van te zeggen, zonder inzage in die functie kan dat niet.

[Herwin1973]

Hallo , ik ben echt wat dat betreft echt een digibeet.

Kun je hier iets mee?





het is de bedoeling dat links onderaan in de legenda de formule komt met de opgetelde kleuren in kolom B,G en M alle andere kolommen moeten niet geselecteerd worden.

Hoop dat je nu weet wat ik bedoel

[ Voor 23% gewijzigd door Herwin1973 op 20-11-2022 14:07 ]

[dix-neuf]

Je schreef dat je een functie had geprogrammeerd, maar die zie ik nog altijd niet!
Als we die zien, dan kunnen we misschien zeggen wat er niet goed aan is je functie.
Wat je bedoeling is, maakt de afbeelding zo ongeveer wel duidelijk: je wil van een aantal cellen het aantal van een bepaalde kleur weten.Wil je dat per kleur en per kolom (van de 6 kolommen met kleur) afzonderlijk, of per kleur van alle 6 de kolommen tezamen?

[A_L]

Je hebt denk ik die formule als macro gemaakt? (ken verder geen bestaande formules in Excel die kleuren tellen volgens mij).

Kun je dan niet dit gebruiken?

code:

 =AANTALZELFDEKLEUR(B4:B27)+AANTALZELFDEKLEUR(G4:G27)+AANTALZELFDEKLEUR(M4:M27;B13)

Overigens zou ik zelf een extra kolom voor elke kamer maken waar een unieke code staat ("bewoond", "onbewoond", ...). Daar kun je makkelijker op tellen.

[ Voor 4% gewijzigd door A_L op 20-11-2022 14:27 ]

[Herwin1973]

De functie is het volgende:

Function AANTALZELFDEKLEUR(Gebied As Range, Cel As Range) As Double
Dim Kleur As Integer
Application.Volatile
Kleur = Cel.Interior.ColorIndex
For Each Cel In Gebied.Cells
If Cel.Interior.ColorIndex = Kleur Then
AANTALZELFDEKLEUR = AANTALZELFDEKLEUR + 1
End If
Next Cel
End Function

Ik wil van de kolommen B, G en M het aantal Rood, Geel enz willen weten en de formule zal ik dan plaatsten in de kleurcodering overzicht

[Tazzios]

persoonlijk zou ik alle data in een tabel onder elkaar zetten ipv 3 x naast elkaar en een extra kolom toevoegen waar in je bewoond onbewoond etc kan selecteren.

Dan heb geen macro`s nodig, hoef je niet meer telkens naar de legenda te kijken welke kleur wat is en kun je ook makkelijk filteren op alle kolommen.
Het overzichte wat je dan wil kun je dan met een standaard draaitabel er naast tonen.

[ Voor 9% gewijzigd door Tazzios op 20-11-2022 15:21 ]

[A_L]

Na het zien van je macro:

code:

 =AANTALZELFDEKLEUR(B4:B27;A30)+AANTALZELFDEKLEUR(G4:G27;A30)+AANTALZELFDEKLEUR(M4:M27;A30)

zoiets zou moeten werken?

(maar dan nog zou ik liever puur formules gebruiken ipv macro's)

[Herwin1973]

dank je, ben weer een stapje dichterbij.
Nu zijn die kolommen wel geselecteerd ,maar telt nu niet de gekleurde cellen (hij blijft op 0 staan)

[Herwin1973]

top, dank je wel, het is gelukt A30 moest A31 zijn

[dix-neuf]

Je zou ook deze macro (geen functie) kunnen gebruiken, waarbij ik ervan uitgegaan ben dat de naam van het werkblad Blad1 is en dat de legenda met kleur rood in A31 begint.

code:

Sub Telkleuren()
Dim a As Integer, x As Integer, cl As Range, myrange As Range
With Sheets("Blad1")
Set myrange = Application.Union(.Range("B4:B27"), .Range("G4:G27"), .Range("M4:M27"))
.Range("a31:a37").ClearContents
For x = 31 To 37
a = 0
For Each cl In myrange
If cl.Interior.Color = .Cells(x, 1).Interior.Color Then
a = a + 1
End If
Next cl
.Cells(x, 1).Value = a
Next x
End With
End Sub

[Herwin1973]

Mijn Dank voor jullie hulp, Het is gelukt.

Zonder jullie hulp was ik volgende week nog bezig.

[oohh]

Tazzios schreef op zondag 20 november 2022 @ 14:32:
persoonlijk zou ik alle data in een tabel onder elkaar zetten ipv 3 x naast elkaar en een extra kolom toevoegen waar in je bewoond onbewoond etc kan selecteren.

Dan heb geen macro`s nodig, hoef je niet meer telkens naar de agenda te kijken welke kleur wat is en kun je ook makkelijk filteren op alle kolommen.
Het overzichte wat je dan wil kun je dan met een standaard draaitabel er naast tonen.

Jouw manier van werken is inderdaad makkelijker en overzichtelijker. Alleen begrijp ik niet waarom hetzelfde appartement meerdere keren per rij terugkomt - met verschillende statussen. Wellicht dat er daarom voor deze opzet is gekozen?