Ich würde daraus eine UDF basteln:
Function Evaluiere(rng As String) As Double Evaluiere = Evaluate(Replace(rng, ",", ".")) End Function