05.01.2022, 16:25
Hi,
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.
Das soll auch nur das mögliche Prinzip zeigen.
Zitat:alleine weil dann schon weitere Zellen für die Übertragung benötigt werden
Zitat: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 FunctionDas soll auch nur das mögliche Prinzip zeigen.