Formules opzoeken en ophalen uit tabblad

[Knalmatics]

Hé computervrienden,
Het volgende probleem doet zich voor:

ik zit met een tabblad waar alle formules ingetikt worden.
bijvoorbeeld : =ALS(G24<1;AFRONDEN.BOVEN(SOM(B6:K6)*VERT.ZOEKEN(PV!$D$26;$A$26:$D$69;3;0)/G2;1);AFRONDEN.BOVEN(H24*E24/6;1))
dit zijn allemaal lange formules. dit moet afhankelijk van de keuze aangepast worden en op 15 verschillende tab's met 15 verschillende variabelen uitgerekend worden.
Nu is dit geen probleem om de formules te kopiëren maar bij aanpassingen of fouten moet men die op 15 tab's aanpassen.
Daarom zouden wij de formules in 1 tab plaatsen en nadien opzoeken en omzetten afhankelijk van een keuze
zie klein voorbeeld in bijlage.

Ik hoop dat hier enkele slimme mensen een oplossing voor hebben.

Bekijk bijlage voorbeeld.xlsx

 

[djbosanac]

normaal kan die vert.zoeken ook problemen veroorzaken.
Verander het is in verticaal.zoeken ?

 

[Knalmatics]

Het probleem zit niet in het opzoeken van de formules. Maar men kan niet rekenen met deze formule zie voorbeeld. ( zie blad 2 B5)
Normaal zou hij B1*C1 of B1+C1 moet uitrekenen. dit is een zeer eenvoudig voorbeeld.

 

[oeldere]

crossposting wordt vaak niet gewaardeerd.

klik hier

 

[Knalmatics]

oeldere, Je mag toch zoeken naar een oplossing of niet soms.

 

[huijb]

Dat mag, maar aangezien er op verschillende Excel forums dezelfde helpers aanwezig zijn is het wel zo netjes op even aan te geven wat je allemaal heb gedaan. Dat betekent ook dat als je probleem hier is opgelost je dat op het andere forum ook kenbaar maakt en vice versa natuurlijk.

 

[sylvester-ponte]

hallo met VBA :

Function EvalueerFormule(R As Range)
    EvalueerFormule = Evaluate(R.Value)
End Function

zie voorbeeld
groet sylvester

 

[Knalmatics]

Sylvester-ponte
danku u voor deze oplossing, dit is wat ik nodig had.
nog wat gesurft op het internet en de function doet nu alles automatisch.

Function EvalueerFormule(R As Range)
    Application.Volatile True
    EvalueerFormule = Evaluate(R.Value)
End Function

 

[huijb]

@Knalmatics Nu nog even op het andere forum aangeven dat het opgelost is.

 

[ExcelAmateur]

Knalmatics,

Zou je op de andere site de vraag als opgelost willen zetten.
Daar heb je nu de vraag gesloten inplaats van opgelost. :thumb:

 

[huijb]

@ExcelAmateur je hoeft mij niet te herhalen

 

[sylvester-ponte]

handig dat

Application.Volatile True

bedankt voor deze feedback

groet sylvester

 

[Knalmatics]

Opgelet met de code "Application.Volatile True"

als men met de cel waar een berekening is uitgevoerd met deze functie nog een brekening maakt zal de uitkomst niet onmiddelijk correct zijn.
men moet meerdere malen het werkblad uitrekenen.
zie bijlage blad 3.
B5= "B1+C1" C5= "=EvalueerFormule(B5)"
B6= "B1+C1" C6= "=EvalueerFormule(B6)"
B7 = C5+C6 C7= "=EvalueerFormule(B7)" dan zal hier altijd de uitkomststaan van vorige bewerking.

Bekijk bijlage formule%20evalueren%201(1).xlsm

Is er een oplossing voor dit fenomeen

 

[sylvester-ponte]

hallo Knal

zet in werkbladcode

Private Sub Worksheet_Change(ByVal Target As Range)
Application.CalculateFull
End Sub

doe dit voor ieder werkblad waar je deze formule gebruikt

dat volatile kun je dan weg laten