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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen