Hi Thierry,
Ik ben ff wat gaan 'bouwen', hoop dat ik het goed begrepen heb
In cellen A1,A2, etc staan kleuren. In kolommen B,C,D staan waarden die je op wil tellen.
In cellen E1, F2 wil je uitkomsten tonen afhankelijk van de kleur in de kolom A.
Function FormuleOBVKleur(ZoekCel As Range, DoelCel As Range)
Application.Volatile
Select Case ZoekCel.Interior.ColorIndex
Case 3
If DoelCel.AddressLocal = "$E$1" Then
FormuleOBVKleur = Range("B1").Value + Range("C1").Value + Range("D1").Value
End If
Case 23
If DoelCel.AddressLocal = "$F$2" Then
FormuleOBVKleur = Range("B2").Value + Range("C2").Value + Range("D2").Value
End If
Case Else
FormuleOBVKleur = ""
End Select
End Function
NB: met Application.Volatile zorg je ervoor dat iedere keer als je een waarde wijzigt de cel / formule opnieuw berekend wordt.
Als je ALT-F11 klikt dan kom je in de code, zet je dan een break zoals in de afbeelding hieronder dan kun je checken wat het getal (colorindex) is wat bij de kleur hoort en de formule uitbouwen!
Zie verder bijlage voor het Excel voorbeeld (met macro's dus macro's activeren).
Gr. Mike
Ik ga er in mijn voorbeeld vanuit dat je doelcellen (E1, F2) vooraf al bekend zijn. Is dat niet zo dan moet ik een method maken i.p.v. een functie in VBA