Welkom, Gasten
Gebruikersnaam: Wachtwoord: Onthoud mij

Onderwerp: exel formule

exel formule 7 jaren 1 maand geleden #127

  • thierry-1967
  • thierry-1967's Profielfoto
vraagje? Is het mogelijk een cel,een kleur toe te wijzen en aan de hand van de kleur de berekening te laten uit komen in een verschillende cel of kolom,ook moet in de cel met kleur om het even welk woord kunnen worden ingevuld.

voorbeeld
A1 heeft de rode kleur en het woord Jan,dan moeten cel B1+C1+D1 de uitkomst maken in E1

A2 heeft de blauw kleur en het woord Jos,dan moeten cel B2+C2+D2 de uitkomst maken in
F2

dank op voorhand
Alleen ingelogde leden kunnen reageren.

exel formule 7 jaren 1 maand geleden #128

  • mikemod
  • mikemod's Profielfoto
  • Afwezig
  • Administrator
  • Berichten: 49
  • Ontvangen bedankjes 8
  • Karma: 2
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
Bijlagen:
Laatst bewerkt: 7 jaren 1 maand geleden door mikemod.
Alleen ingelogde leden kunnen reageren.

exel formule 7 jaren 1 maand geleden #130

  • thierry-1967
  • thierry-1967's Profielfoto
hallo Mike,ik begrijp niet goed hoe ik het moet maken
hier een voorbeeld van de formule die ik tot nu toe heb kunnen maken maar deze kan alleen werken als ik het zelfde woord invul,dat is nu net wat ik niet wil,ik zou er liever een kleur aan vast maken en dat de geschreven tekst niets uitmaakt ten opzichte van de uitkomst cel
=ALS(K$2=$B3;E3+F3+G3+H3+I3+J3;"")
=ALS(L$2=$B3;E3+F3+G3+H3+I3+J3;"")

dank u alvast voor de hulp
Alleen ingelogde leden kunnen reageren.

exel formule 7 jaren 1 maand geleden #131

  • mikemod
  • mikemod's Profielfoto
  • Afwezig
  • Administrator
  • Berichten: 49
  • Ontvangen bedankjes 8
  • Karma: 2
Hi Thierry,

Dat is nu precies wat hieronder gebeurt Case 3 = ROOD / CASE 23 = BLAUW. Dit zijn de numerieke waarden die horen bij de kleuren Rood en Blauw.

Gr. Mike

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
Alleen ingelogde leden kunnen reageren.
Bedankt door: thierry-1967

Excel Software Shop

Web Analytics