Hallo,

in einer Zelle soll eine Berechnungsformel per Hand und ohne = - Zeichnen eingeben werden z.B. 12x120,00+45,57

Über VBA möchte ich die Zelle auslesen und berechnen lassen.

Geht das?

Hier tritt ein Fehler auf:

Sub BerechneZelle()
    Dim Ergebnis As Double

    On Error GoTo Fehlerbehandlung

    ' Zellinhalt von B5 als Zeichenkette speichern
    Dim FormelAlsText As String
    FormelAlsText = Range("B5").Value
    Debug.Print FormelAlsText    
    
    ' Formel auswerten und Ergebnis in eine Variable speichern
    Ergebnis = Evaluate(FormelAlsText)

    ' Ergebnis in Zelle C5 schreiben
    Range("C5").Value = Ergebnis

    Exit Sub

Fehlerbehandlung:
    MsgBox "Fehler bei der Berechnung: " & Err.Description
End Sub