Clever-Excel-Forum

Seiten: 1 2

Hallo,

beim Testen hatte ich die Formel des Polynoms, aber nicht R² anzeigen lassen.

Mit der Korrektur

iFormel = Split(Ch.Chart.FullSeriesCollection(1).Trendlines(1).DataLabel.Text, Chr(11))(0)

sollte es laufen. Hier der gesamte Code:

Code:
Sub Makro1()

'

Dim Ch As ChartObject

Dim WS As Worksheet

Set WS = ActiveSheet

Set Ch = WS.ChartObjects(1)

R = intstr

iFormel = Split(Ch.Chart.FullSeriesCollection(1).Trendlines(1).DataLabel.Text, Chr(11))(0)

iFormel = Right(iFormel, Len(iFormel) - 2)

iFormel = Replace(iFormel, "x2", "x^2") ' weitere Zeile für x³, x^4 usw

iFormel = Replace(iFormel, "x", " * x")

iFormel = Replace(iFormel, "x", "ZS(-1)")

Debug.Print iFormel

Range("P2:P17").FormulaR1C1Local = iFormel

End Sub

Im Eröffnungspost stand etwas vom "Polynom 6.ten Grads", wegen des geringsten R². Da R² immer bei Polynomen höheren Grades steigt, halte ich dieses Kriterium für nicht sonderlich geeignet. Gesucht werden sollte der GRad "des optimale" Polynoms, z.B. analog zur Cluster-Analyse mit dem "elbow-" Kriterium. (wikipedia sollte helfen).

mfg

Hallo,

hier die Berechnung des Trends mit einem Polynom 6.Grades mit RGP, die ich aber für eine Absatzfunktion nicht für die richtige Trendfunktion halte.

Guten Morgen,

Danke! Jetzt versteh ich wie die es haben wollen. Das die Funktion nicht gerade passend für eine Trendfunktion ist wurde mir auch schnell klar, aber mich hat es dennoch interessiert, wie es in Excel geht. :)

Ich hab außerdem noch, falles es jemanden interessiert, eine Seite gefunden, wo auch wege für die anderen Funktionen stehen.
http://spreadsheetpage.com/index.php/tip..._formulas/
Danke euch!

Seiten: 1 2

Fennek

Ego

TheLuzl