Wie man eine String-Formel in eine "echte" Formel umwandelt

Evaluate passen könnten:

http://www.mrexcel.com/forum/showthread.php?t=62067

Function Eval(Ref As String)
    Application.Volatile
    Eval = Evaluate(Ref)
End Function

InformationsquelleAutor der Antwort Fionnuala

Nur zum Spaß, ich fand eine interessante Artikel hierum einen irgendwie versteckten bewerten-Funktion, existiert in Excel. Der trick ist, ordnen Sie einen Namen und verwenden Sie die Namen in die Zellen, da EVALUATE() würde Ihnen ein Fehler msg wenn direkt in eine Zelle. Ich habe versucht, und es funktioniert! Sie können es verwenden, mit einem relativen Namen, wenn Sie kopieren wollen, zwischen den Zeilen, wenn Sie ein Blatt.

InformationsquelleAutor der Antwort Patrick Honorez

Bevorzuge ich die VBA-Lösung für professionelle Lösungen.

Mit der ersetzen-Verfahren Teil in der Frage
Suche und Ersetze NUR GANZE WÖRTERBenutze ich folgende VBA-Prozedur ein:

''
' Evaluate Formula-Text in Excel
'
Function wm_Eval(myFormula As String, ParamArray variablesAndValues() As Variant) As Variant
    Dim i As Long

    '
    ' replace strings by values
    '
    For i = LBound(variablesAndValues) To UBound(variablesAndValues) Step 2
        myFormula = RegExpReplaceWord(myFormula, variablesAndValues(i), variablesAndValues(i + 1))
    Next

    '
    ' internationalisation
    '
    myFormula = Replace(myFormula, Application.ThousandsSeparator, "")
    myFormula = Replace(myFormula, Application.DecimalSeparator, ".")
    myFormula = Replace(myFormula, Application.International(xlListSeparator), ",")

    '
    ' return value
    '
    wm_Eval = Application.Evaluate(myFormula)
End Function


''
' Replace Whole Word
'
' Purpose   : replace [strFind] with [strReplace] in [strSource]
' Comment   : [strFind] can be plain text or a regexp pattern;
'             all occurences of [strFind] are replaced
Public Function RegExpReplaceWord(ByVal strSource As String, _
ByVal strFind As String, _
ByVal strReplace As String) As String

    ' early binding requires reference to Microsoft VBScript
    ' Regular Expressions:
    ' with late binding, no reference needed:
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    re.Global = True
    're.IgnoreCase = True ' <-- case insensitve
    re.Pattern = "\b" & strFind & "\b"
    RegExpReplaceWord = re.Replace(strSource, strReplace)
    Set re = Nothing
End Function

Verwendung des Verfahrens in einem excel-sheet sieht so aus:

InformationsquelleAutor der Antwort DrMarbuse

Die besten, nicht-VBA, Weg, dies zu tun ist mit der TEXT-Formel. Es nimmt einen string als argument und konvertiert es zu einem Wert.

Z.B. =TEXT ("0.4*A1",'##') return den Wert von 0,4 * der Wert, der in Zelle A1 des Arbeitsblatts.

InformationsquelleAutor der Antwort JakobW