ALS-functie naargelang kleur

[wiba89]

Collega-excellers

Een klein vraagje. Ik zou een formule moeten hebben die werkt naargelang de opvulkleur van een cel. De waarde in de cel staat niet altijd garant voor de kleur van die cel.
Concreet: als de kleur van cel A2 rood is, dan moet er in cel B2 "0" komen. als de kleur van cel A2 groen zou zijn, dan moet er in cel B2 "x" komen.

Ter verduidelijking --> zie excell-bestand bijgevoegd.
Bekijk bijlage Map1.xlsx

 

[Gerard2348]

Hoe verkrijg je de opvulkleur van een cel?
Ik denk dat hetgeen jij wilt niet mogelijk is.

 

[Leotaxi]

heb ik hier eens gevonden
werkt bij cellen zelf gekleurd, dus niet gekleurd via vo


mvg
Leo

 

[wiba89]

Gewoon door zelf op te vullen. De achterliggende gedachte:
er worden 4 clinics georganiseerd en ze moeten aanwezig zijn op meer dan 3 clinics. Natuurlijk kunnen ze ook met 10 personen aanwezig zijn op 1 clinic. Dan wordt 10 ingevuld in de cel, met de rode kleur omdat ze niet aan de vereiste voldoen (op meer dan 3 clinics aanwezig zijn). Dit gebeurt manueel.

 

[wiba89]

heb ik hier eens gevonden
werkt bij cellen zelf gekleurd, dus niet gekleurd via vo


mvg
Leo

Hier ben ik niet echt mee. Is er voor het groen dat ik gebruikt heb geen soort 'naam' ofzo?

 

[Leotaxi]

doet het anders goed


mvg
Leo

 

[wiba89]

doet het anders goed


mvg
Leo

Bedankt, da's wat ik nodig heb. Nu moet ik die nog naar mijn groot bestand kunnen brengen. Waar en waarheen moet ik die macro dan kopiëren?

 

[arrie23]

Min of meer hetzelfde als bij Leo:

Function Rood_Groen(Cel As Range)
If Cel.Interior.ColorIndex = 3 Then
Result = 0
ElseIf Cel.Interior.ColorIndex = 50 Then
Result = "x"
Else
Result = ""
End If
Rood_Groen = Result
End Function

 

[Leotaxi]

VBA editor openen
module toevoegen

en deze erin plaatsen

Function CelKleur(r As Range)
    CelKleur = r.Interior.ColorIndex
End Function

mvg
Leo

 

[wiba89]

Het werkt. Hopelijk heb ik het op de juiste manier geïnstalleerd!! Bedankt iedereen!