berekeningsopgave in tekst berekenen

[nootie]

Ik zou graag een functie willen maken waarbij een berekeningsopgave in tekst wordt berekend. Enkele voorbeelden zijn :

opgave in excelcel
25 x 5 x 2 =
18 + 5 - 4 =
(30-10) x 2 =

uitkomst in andere excelcel via functie
250
19
40

Eerst en vooral vraag ik me af of hiervoor al een functie zou bestaan in excel?
Indien niet, kan dat gemakkelijk in een vba-code gestoken worden?


Alvast bedankt.

 

[JEC.]

Kan wel met evalueren in de name manager. Nu kan ik er helaas niet naar kijken voor je. Misschien dat een ander het aan kan vullen in de tussentijd

 

[edmoor]

Met een UDF:

Function Eval(Ref As String)
    vl = Replace(LCase(Ref), "x", "*")
    vl = Replace(vl, "=", "")
    vl = Replace(vl, ",", ".")
    Eval = Evaluate(vl)
End Function

 

[JEC.]

Hier een versie zonder VBA. Zie namen beheren voor informatie achter de functie

 

[edmoor]

Mooie! :thumb:

 

[nootie]

hartelijk dank, dit is exact wat ik zocht. Ik zou het misschien nog wat willen uitbreiden, als dit zou lukken.

Zou het mogelijk zijn om ook dit product gemakkelijk te berekenen = 5m² x 10kg/m². Dit zou dus als resultaat 50 moeten geven.

Ik heb al geprobeerd om de code verder uit te breiden met vl = Replace(vl, "kg/m²", "") , echter lukt dit niet...


EDIT : Ik het mijn fout gevonden, ik moet zorgen dat ik deze code vl = Replace(vl, "kg/m²" vanboven plaats.