Bepaal kleur cel dmv functie van de cel met de functie

[OSPro]

Ik ben bezig met een functie voor het optellen van gekleurde cellen.

Alleen wil ik graag dat de functie de kleur ophaalt van de cel waar de functie in staat.

Is dit mogelijk?

Adriaan

 

[Ad Becude]

Adriaan,

Alleen wil ik graag dat de functie de kleur ophaalt van de cel waar de functie in staat.

Als de kleur bepaald word door een functie, kun je die cellen doormiddel van die zelfde functie optellen. Of zie ik het te simpel......als dat zo is, dan zou een voorbeeldje wonderen kunnen doen.

 

[Warme bakkertje]

Je vraag is nogal onduidelijk. Wil je het aantal cellen met een bepaalde kleur tellen of wil je waarden in een cel met een bepaalde kleur optellen?

 

[OSPro]

Hierbij mijn bestandje.

Nu moet ik een cel opgeven maar dat is de cel waar mijn functie instaat kan hij deze niet zelf ophalen?

Gr Adriaan

Bekijk bijlage Kleurfunctie.xls

 

[popipipo]

Wat is de reden waarom een cel geel is en waarom hij groen is?
Als je deze reden weet kun je de optelling naar aanleiding van die reden en hoef je dus niet kleuren te tellen.

 

[WHER]

En nog een vraag omtrent je vraag:

Ik ben bezig met een functie voor het optellen

Bedoel je hiermee dat je bezig bent met het schrijven van een User Defined Function?

 

[OSPro]

De rede van de kleuren is financiele betaling worden handmatig gekleurt aan de hand van externe gegevens.
Alleen moeten er meer mensen mee werken en de functie zoals hij nu is heeft naar mijn zin te veel variabele.

De cel aangeven met kleur is overbodig als hij de kleur van de cel pakt waar de functie in staat.

Function KleurFunction(Kleur As Range, ZoekBereik As Range)

Het stuk "Kleur As Range," wil ik weg hebben

 

[Warme bakkertje]

M.i. niet mogelijk, hoe kan een functie uit zichzelf weten in welke cel ze zich bevindt?

 

[WHER]

Rudi,

Misschien via Application.Caller, deze aanpak heb ik hier eens zien passeren.
Zie bijlage.

 

[Warme bakkertje]

Ik zat ook in die richting te denken, maar ik kwam er niet direct uit :thumb:
Maar is de Als-functie niet overbodig als de herberekening op automatisch staat?

Function KleurFunction(ZoekBereik As Range)
Dim RekCell As Range
For Each RekCell In ZoekBereik
       If RekCell.Interior.ColorIndex = Application.Caller.Interior.ColorIndex Then
         KleurFunction = KleurFunction + RekCell
       End If
   Next RekCell
End Function

 

[WHER]

Bij een eerste test reageerde de functie niet op F9 zonder de" if(now()..." dus heb ik dat er maar bij gezet.