string omzetten naar getal

[mzuita]

beste lezers,

ik heb een kolom met daarin naast bijvoorbeeld
'(1.052632*1*0.82*(0+0+0+0+0+0+0+0+30+0+0+0+0))
ook
'if((0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+2+0+0) > 10 ; 1 * 14160 * ((0+0+0)/(0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0)) ; 3)

Het omzetten van het eerste veld naar een waarde lukt door er gewoon via een VBA-lusje een '=' voor de string te zetten en in het doelveld te plaatsen:

tekst = ActiveCell.Offset(rijen, 0).Value
getal = "=" & tekst
On Error Resume Next
ActiveCell.Offset(rijen, 2) = getal​

Die if-string lukt me niet via VBA (de uitkomst moet '3' in het doelveld zijn). Wie kan me helpen?

 

[Wigi]

Sub wigi()

    Dim tekst As String

    tekst = "if((0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+2+0+0) > 10 ; 1 * 14160 * ((0+0+0)/(0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0)) ; 3)"
    On Error Resume Next
    ActiveCell.Offset(rijen, 2) = Evaluate("=" & Replace(tekst, ";", ","))
    On Error GoTo 0

End Sub

Wigi

 

[Wigi]

Nog vergeten te zeggen, gelieve in het vervolg code tussen code tags te zetten. Het # teken aanklikken.

 

[mzuita]

Nog vergeten te zeggen, gelieve in het vervolg code tussen code tags te zetten. Het # teken aanklikken.

#msgbox "oke, zal ik het vervolg doen, meneer Wigi!"#

 

[mzuita]

Sub wigi()

    Dim tekst As String

    tekst = "if((0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+2+0+0) > 10 ; 1 * 14160 * ((0+0+0)/(0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0+0)) ; 3)"
    On Error Resume Next
    ActiveCell.Offset(rijen, 2) = Evaluate("=" & Replace(tekst, ";", ","))
    On Error GoTo 0

End Sub

Wigi

Wim,
wederom bedankt, het werkt.
groeten,
Marcel