Uitrekenen met kleuren

[Lavi87]

Goedemiddag Allemaal,

is het mogelijk om kleuren op te laten tellen in excel.

Zoals als je in het voorbeeld ziet heeft iedereen zijn eigen kleur (Gaat per groep allemaal een andere naam)
In tabblad 2 moet er uitgerekend worden hoeveel keer de kleur rood bijv. er bij kolom B,C.

Nu doe ik dit nog handmatig maar is er hier ook een volume voor?

 

[edmoor]

Met een simpele VBA functie:

Function TelKleuren(Bereik As Range, Kleur As Range) As Integer
    For Each cl In Bereik
        If cl.Font.Color = Kleur.Font.Color Then TelKleuren = TelKleuren + 1
    Next cl
End Function

Voorbeeld gebruik:

=TelKleuren(BOETES!B5:C8;UITGEREKEND!A6)

Parameter 1 is het te tellen bereik en parameter 2 een cel met de font kleur.

 

[Lavi87]

Oke,

in ieder geval alvast bedankt.
Op dit ogenblik ben ik zelf nog niet zover met VBA dus daar zal ik me verder in moeten verdiepen.

 

[edmoor]

In je voorbeeld documentje ingebakken:
Bekijk bijlage Test.xlsm

 

[jkpieterse]

Let er wel op, dat het wijzigen van een kleur geen herberekening veroorzaakt. Sowieso beveel ik van harte aan om niet met kleuren te rekenen maar met waarden in de cel te werken (getallen of tekst).

 

[edmoor]

Waar ik het alleen maar mee eens kan zijn.

 

[Lavi87]

Hoe zou ik dat dan het gemakkelijkste kunnen doen?

Op het eerste blad boetes staan de namen en de aantallen in kolom B (Aantal) en in C (de naam)
Nu moet alles alleen in het rood bij elkaar opgeteld worden bij uitgerekend en dit moet dan weer in Kolom B bij Rood

Net zoals Piet uit het eerste blad moet dan opgeteld worden Bij zwart.

Kolom B en C staan gelijk aan de kolom B van uitgerekend
Kolom D en E staan gelijk aan de kolom C van uitgerekend enz enz

 

[edmoor]

Als je verteld wat die gegevens precies betekenen kan daar wellicht een logischer indeling voor verzonnen worden.

 

[Lavi87]

Het gaat om boetes die wij kunnen krijgen per dag.
Elke afdeling heeft zijn eigen kleur.
Op het eerste blad staan alle medewerkers die wat verkeerd hebben gedaan met aantal.
en op blad 2 staan ze per afdeling.
Dus alles wat op blad 1 staat moet omgerekend worden naar afdeling op blad 2
Want dan gaat het niet meer om de personen maar om de aantallen.

vandaar dat we in tab 1 werken met gekleurde personen zodat wij weten op welke afdeling het thuis hoort

 

[jkpieterse]

Wat denk je van zo'n soort opzet?

 

[snb]

Voor het uitdelen van boetes in een organisatie bestaat geen enkele rechtsgrond en is managementtechnisch contraproductief.
Ik zou daar geen medewerking aan verlenen.