Function Rechenweg(Zelle As Range) As String
Dim FT As String
Dim ZB As String
Dim i As Long
FT = Zelle.FormulaLocal
i = 2
Do While i < Len(FT)
If Asc(Mid(FT, i, 1)) >= Asc("A") Then
If Asc(Mid(FT, i, 1)) <= Asc("Z") Then
If IsNumeric(Mid(FT, i + 1, 1)) Then
ZB = Mid(FT, i, 2)
If IsNumeric(Mid(FT, i + 2, 1)) Then
ZB = ZB & Mid(FT, i + 2, 1)
If IsNumeric(Mid(FT, i + 3, 1)) Then ZB = ZB & Mid(FT, i + 3, 1)
End If
FT = Replace(FT, ZB, Format(Range(ZB).Value, "0.00"))
End If
End If
End If
i = i + 1
Loop
Rechenweg = Mid(FT, 2) & " = "
End Function