Getallen naast een vak met kleur optellen

[erikkallenberg]

Beste Tweakers,

Ik wil graag de getallen bij elkaar optellen die in het vak naast de blauwe, lichtblauwe & groene cellen staan.

Nou kan ik gewoon =sum(a1:a23) doen en dan heb ik de som van de vakken naast de blauwe cellen. Echter verschilt het aantal blauwe cellen per maand.

Ik zoek dus een formule die het aantal blauwe cellen telt (deze maand 23), en daarna cellen a:1 t/m a:23 bij elkaar optelt. Wanneer er volgende maand 28 blauwe cellen zijn, wil ik dat de formule de volgende maand 28 cellen bij elkaar optelt


https://drive.google.com/...YmghgOgh/view?usp=sharing


Is dit mogelijk, en zoja hoe?

[MAX3400]

Ik klik niet zomaar shared files aan; geen idee wat voor macro's of andere meuk erin kan zitten.

Maar https://www.google.nl/amp...s-in-excel-by-cell-color/ heeft wel wat je zoekt?

[RobinL94]

Je moet dit ophangen aan de gegevens die de kleur van de cellen bepalen. Op basis van opmaak kun je in Excel geen formules maken.

[erikkallenberg]

MAX3400 schreef op zaterdag 14 juli 2018 @ 13:24:
Ik klik niet zomaar shared files aan; geen idee wat voor macro's of andere meuk erin kan zitten.

Maar https://www.google.nl/amp...s-in-excel-by-cell-color/ heeft wel wat je zoekt?

Zal er naar kijken. De share betreft een printscreen

[Belindo]

Makkelijk oplossing: gebruik SUBTOTAL() en filter je range/tabel op de kleur die je wilt. SUBTOTAL() geeft dan alleen de som van de rijen die niet weggefilterd zijn.

Moeilijke oplossing: maak een UDF met een stukje VBA om de .InteriorColor van de cell te noteren. Dan doe je een SUMIF() met als hulpkolom je kolom met de kleuren die gelijk zijn aan de kleurcode die je gebruikt.

[erikkallenberg]

Belindo schreef op zaterdag 14 juli 2018 @ 13:28:
Makkelijk oplossing: gebruik SUBTOTAL() en filter je range/tabel op de kleur die je wilt. SUBTOTAL() geeft dan alleen de som van de rijen die niet weggefilterd zijn.

Moeilijke oplossing: maak een UDF met een stukje VBA om de .InteriorColor van de cell te noteren. Dan doe je een SUMIF() met als hulpkolom je kolom met de kleuren die gelijk zijn aan de kleurcode die je gebruikt.

Bedankt, goede tip. Kan hier wel wat mee!

[erikkallenberg]

Belindo schreef op zaterdag 14 juli 2018 @ 13:28:
Makkelijk oplossing: gebruik SUBTOTAL() en filter je range/tabel op de kleur die je wilt. SUBTOTAL() geeft dan alleen de som van de rijen die niet weggefilterd zijn.

Moeilijke oplossing: maak een UDF met een stukje VBA om de .InteriorColor van de cell te noteren. Dan doe je een SUMIF() met als hulpkolom je kolom met de kleuren die gelijk zijn aan de kleurcode die je gebruikt.

In theorie zou het moeten werken. Ik krijg een foutmelding bij de subtotal formule. Enig idee waarom ik deze foutmelding krijg?

https://drive.google.com/...-m3GoDHs/view?usp=sharing

[Belindo]

Hmm, ik krijg deze fout hier niet. Je gebruikt een komma als delimiter tussen de function_num en de range. Afhankelijk van je taalinstelling kan dit ook een ; (puntkomma) zijn.

[erikkallenberg]

Belindo schreef op zaterdag 14 juli 2018 @ 19:46:
Hmm, ik krijg deze fout hier niet. Je gebruikt een komma als delimiter tussen de function_num en de range. Afhankelijk van je taalinstelling kan dit ook een ; (puntkomma) zijn.

Klopt. Dank, het werkt!

Moet je ook maar net weten

[erikkallenberg]

Nog niet gelukt zoals ik het wil hebben. Wil het nu middels VBA proberen.

De cellen krijgen zijn kleur middels een conditional format.
Dit werkt niet:
Wanneer ik ik de .interorColor opvraag krijg ik voor elke cel hetzelfde resultaat FFFFFF (blanke cell). Dit doe ik middels een RGB1 module:

Function getRGB1(rcell) As String
Dim sColor As String

sColor = Right("000000" & Hex(rcell.Interior.Color), 6)
getRGB1 = Right(sColor, 2) & Mid(sColor, 3, 2) & Left(sColor, 2)
End Function

De String Lidl krijgt zijn kleur als volgt:

Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="lidl", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599963377788629
End With

Wanneer ik deze module uitvoer, krijg ik voor elke kleur #value te zien.
http://vbaexpress.com/kb/getarticle.php?kb_id=190

https://drive.google.com/...TjmJYqYi/view?usp=sharing

Kort gezegd: Welke kleur heeft de string "lidl", en hoe vraag ik dit op?

[ Voor 16% gewijzigd door erikkallenberg op 15-07-2018 14:18 ]

[erikkallenberg]

Opgelost

Sub ShowCellColors()
Application.ScreenUpdating = False
'Variable declaration
Dim rng As Range
Dim lTint As Double
Dim rngCell As Range
'Set the range
Set rng = Range("C2:C999")
'loop throught each cell in the range
For Each rngCell In rng
lTint = Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.ThemeColor + Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.TintAndShade
Cells(rngCell.Row, rngCell.Column + 4).Select
ActiveCell.FormulaR1C1 = lTint
Next
Application.ScreenUpdating = True
End Sub

[Belindo]

Mooi gevonden! Dit is een sub die eenmalig een kolom toevoegt met de .InteriorColor? Wellicht is een UDF handiger? Dat is een User Defined Function die je net zoals SUM() en AVERAGE() enzo kunt oproepen.

Deze zet je in je VBA:

Visual Basic .NET:

Function udf_CheckInteriorColor(range)

        udf_CheckInteriorColor = range.Interior.Color

End Function

En dan gebruik je in de cell waar je de kleur wilt hebben de formule:

=udf_CheckInteriorColor()

met tussen de haakjes de cel waarvan je de kleur wilt.

[DJMaze]

MAX3400 schreef op zaterdag 14 juli 2018 @ 13:24:
Ik klik niet zomaar shared files aan; geen idee wat voor macro's of andere meuk erin kan zitten.

Het was gewoon een jpeg met zijn aankopen in de Lidl

[MAX3400]

DJMaze schreef op zondag 15 juli 2018 @ 20:25:
[...]

Het was gewoon een jpeg met zijn aankopen in de Lidl

Hang op, klik weg, bel je bank...

Het klakkeloos posten van URL's zonder uitleg wat er te vinden is en/of enige security, vind ik gewoon zeer onhandig. Er zijn zat gratis image-hosts als je een plaatje wil posten op een forum.

[Croga]

MAX3400 schreef op zondag 15 juli 2018 @ 20:28:
Er zijn zat gratis image-hosts als je een plaatje wil posten op een forum.

Daarnaast maken we hier graag gebruik van thumbnails... Alleen een linkje is altijd al suspect.