Berekening (functie) in textbox

[lam201]

Goedenavond,

ik heb de volgende vraag/uitdaging.
Kunnen we in een textbox op een userform een formule invoeren (bv =4+5) en dat er dan bij textbox_exit dan de uitkomst in diezelfde textbox komt?
(zie voorbeeld in de bijlage)

ik heb nu een oplossing waarbij de formule uit textbox1 wordt weggeschreven naar het werkblad.
die voert de berekening uit. vervolgens wordt de waarde weer ingelezen in textbox1.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Left(Me.TextBox1.Value, 1) = "=" Then

    Range("A1").Formula = Me.TextBox1.Value
    Me.TextBox1 = Range("A1").Value

End If

End Sub

Maar is er ook een oplossing die geen gebruik maakt van het werkblad?

groet,

Lambert


Bekijk bijlage FormuleTextbox.xlsm

 

[HSV]

TextBox1.Value = Evaluate(TextBox1.Value)

 

[lam201]

Harry,

dank je.
Die kende ik nog niet.

 

[HSV]

En,... je hoeft niet eens het "=" teken in te vullen.