Is there e way to implement the excel’s Function ‘evaluate’ in Libreoffice?

In many of my spradsheets i have to show the complete formula and the result of it in a separate cell.

The Result Cell in Excel contains an easy VB-macro. In the first cell there is the formula in text without the ‘=’ at the beginning. In the reult cell i only type ‘=eval(A1)’

the macro in excel: result = Application.Evaluate("=" & Formula)

btw: that’s the only reason why i’m using excel and calc at all