Excel Formel Bezüge in Werte umwandeln

[{Boris}]

Hi,

alleine weil dann schon weitere Zellen für die Übertragung benötigt werden

Daher habe ich auch dazu geschrieben:

Per VBA könnte man damit dann auch alle Zellen abklappern und die Formeln (=A1+B1+C1) durch die ausgewertete Variante (=123,54+254,25+125,00) ersetzen.

Dann braucht man keine "weiteren Zellen". Hier ein ganz simples Beispiel:
In D1, D2 und D3 stehen Formeln - alle durchgängig mit Addition von Einzelzellen.

Das hier alles in ein allgemeines Modul und die Sub auswerten ausführen.

Code:

Sub auswerten()
Dim C As Range
For Each C In Range("D1:D3")
    C.Formula = Parsen(C)
Next C
End Sub

Function Parsen(DieFormelzelle As Range) As String
Dim arr, x As Long, s As String
s = DieFormelzelle.Formula
arr = Split(s, "+")
For x = 0 To UBound(arr)
    s = Replace(s, arr(x), Evaluate(arr(x)))
Next x
Parsen = "=" & s
End Function

Das soll auch nur das mögliche Prinzip zeigen.