|
Hallo zusammen,
ich möchte via VBA den Rechenweg einer Zelle mit dem jeweiligen benutzerdefinierten Zahlenformat der Zellen darstellen lassen.
Mit reinen Zahlen funktioniert es mit dem unten dargestellten Makro super.
Die Zellformatierung hinter den jeweiligen Zahlen hinzuzufügen bekomme ich nicht hin, habt ihr eine Idee?
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
Viele Grüße
|