Excel VBA - Berechnen in VBA

Question

einfaches Problem. Ich habe eine Zeichenfolge, die eine Formel darstellt.

Wie

Dim formula As String 
formula = Replace(processFormula(2016, 9000, constants, formulaRow), "##", 9000) 
'formula has the value "(1007,27*((9000 - 8820)/10000)+1400)*((9000 - 8820)/10000)" 

MsgBox (formula) 

'Evaluate(formula) not working sadly 

Jetzt möchte ich es in VBA bewerten und das Ergebnis zurück. Ich bekomme nicht, dass Evaluate für die Berechnung arbeitet.

processFormula ist eine Funktion, die eine Formel generiert und einen String zurückgibt. Also wird ein String in die Ersetzungsfunktion eingefügt, die '##' durch eine Zahl ersetzt. Nichts magisches hier. In Bezug auf die Debugger-Formel ist ein String mit dem oben angegebenen Wert (es wird direkt vom Debugger kopiert).

Gibt es einen einfachen und einfachen Weg?

Danke, ich hoffe, es ist kein Duplikat.

Answer 1

sollten Sie das Komma durch einen Punkt ersetzen

Dim formula As String 
formula = replace(Replace(processFormula(2016, 9000, constants, formulaRow), "##", 9000),",",".") 
'formula has the value "(1007,27*((9000 - 8820)/10000)+1400)*((9000 - 8820)/10000)" 

MsgBox (formula) 

Evaluate(formula) 'should work now ;o) 

Answer 2

Verwenden Sie die folgenden Sub.

Sub Calculate() 
Dim x As Double 
    x = ((100 * 20)/30 * 500) 
    Range("A1") = x 
    MsgBox x 
End Sub 

Answer 3

sollte es kein Problem sein:

Sub eval() 
    MsgBox Evaluate((100 * 20)/30 * 500) 
End Sub 

, die die äquivalente Zellenformel entspricht. Hinweis: Dies ist nicht das gleiche wie:

(100*20)/(30*500) 

EDIT # 1:

Dies funktioniert auch:

Sub eval2() 
    Dim s As String 
    s = "((100 * 20)/30 * 500)" 
    MsgBox Evaluate(s) 
End Sub