Kann man diese Formel aus der Zelle rauskopieren, sodass die einzelnen Werte untereinander (Transponiert) aufgelistet werden (inkl. Vorzeichen)?
P.S. in der Formel ist nur Addition und Subtration vorhanden!!
Vielen Dank!!
Grüße Addi
Sub tt()
FormelAufteilen Range("a3")
End Sub
Sub FormelAufteilen(rng As Range)
Dim arrFormel, strFormel As String
strFormel = rng.FormulaLocal
strFormel = Replace(strFormel, "=", "")
strFormel = Replace(strFormel, "-", ";-")
strFormel = Replace(strFormel, "+", ";")
arrFormel = Split(strFormel, ";")
Range(rng.Offset(1, 0), rng.Offset(UBound(arrFormel) + 1, 0)) = _
WorksheetFunction.Transpose(arrFormel)
End Sub
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.