Function
Berechnungsweg2(r
As
Range)
As
String
Dim
f
As
String
, f2
As
String
f = r.FormulaLocal
f2 = f
f2 = Replace(f2,
"+"
,
";"
)
f2 = Replace(f2,
"-"
,
";"
)
f2 = Replace(f2,
"*"
,
";"
)
f2 = Replace(f2,
"/"
,
";"
)
f2 = Replace(f2,
"^"
,
";"
)
f2 = Replace(f2,
":"
,
";"
)
f2 = Replace(f2,
"("
,
";"
)
f2 = Replace(f2,
")"
,
""
)
arr = Split(f2,
";"
)
For
Each
x
In
arr
If
Not
getRange(x)
Is
Nothing
Then
If
getRange(x).NumberFormat =
"General"
Then
f = Replace(f, x, getRange(x))
Else
f = Replace(f, x, Format(getRange(x).Value, getRange(x).NumberFormat))
End
If
End
If
Next
x
Berechnungsweg2 = f
End
Function
Function
getRange(
ByVal
bez
As
String
)
As
Range
On
Error
Resume
Next
Set
getRange = Range(bez)
End
Function