Hallo Leute, Kann mir jemand sagen warum das Programm nicht funktioniert?
Vielen dank im voraus!!
Sub Ber()
Dim a As Double, b As Double
a = 2
b = 3
MsgBox (udfSumme(a, b))
End Sub
Function udfSumme(a As Double, b As Double)
udfSumme = Rechnen([A1], a) + Rechnen([A1], b)
End Function
Function Rechnen(rngZelle As Range, dblWert As Double)
'Aufruf im Tabellenblatt : =rechnen(A1;10)
'In A1 muss der Funktionsterm stehen, z.B. "x^2" oder "x*10" oder "100-2*x" etc.
Application.Volatile
Rechnen = Evaluate(Replace(rngZelle.Value, "x", dblWert))
End Function |