Berechnung von linearen Trends

Forumthread: Berechnung von linearen Trends

07.09.2006 11:51:31

linearen

Hallo, ich möchte einen vergangenen linearen Trend numerisch darstellen.
Erstelle ich Diagramme, liefert mir die lineare Trendlinie auf Wunsch eine Formel nach dem Muster y = mx + b (z.B.: y = 0,0852x + 3,9018). Nun möchte ich die Werte "m" und "b" in einer extra Zelle ausgeben lassen, "x" ist die Menge meiner Datensätze. Ich benötige das Produkt von "m*x", "b" und "y", um meine gewünschte Auswertung erstellen zu können.
Falls dies nicht geht, reicht mir zur Not auch die Ausgabe der Gleichung (y = mx + b) in einer Zelle, die Werte müßte ich dann manuell nochmal rausziehen.
Die Excel-Formel Trend liefert mir nicht die gewünschten Ergebnisse, Mißverständnisse meinerseits aber nicht ausgeschlossen.
Für Antworten wäre ich sehr dankbar.
Viele Grüße
Andreas

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Berechnung von linearen Trends

07.09.2006 11:59:30

linearen
AW: Berechnung von linearen Trends

07.09.2006 13:12:56

linearen
AW: Berechnung von linearen Trends

07.09.2006 15:19:59

linearen
AW: Berechnung von linearen Trends

07.09.2006 12:11:43

linearen

AW: Berechnung von linearen Trends

07.09.2006 11:59:30

linearen

Hi Andreas,
könntest du das an einem Beispiel zeigen was bei dir rauskommt und was rauskommen soll
lad einfach ein Beispiel hoch
Gruss
M@x

AW: Berechnung von linearen Trends

07.09.2006 13:12:56

linearen

Hallo Andreas,
ist ein Code den ich mir mal gebastelt hatte, um lineare Trends auszurechnen wie es das Diagramm auch macht.


Sub Regressionsanalyse()
On Error GoTo fehlerweg
ActiveWorkbook.Sheets(1).Select
n = Cells(Cells(2, 1).End(xlDown).Row, 1).Row - 1
ReDim xarray(n)
ReDim yarray(n)
For j = 1 To n
xarray(j) = Cells(j + 1, 1).Value
yarray(j) = Cells(j + 1, 2).Value
mwx = mwx + xarray(j)
mwy = mwy + yarray(j)
Next j
mwx = mwx / n
mwy = mwy / n
stxy = 0
stx = 0
sty = 0
For j = 1 To n
stxy = stxy + ((xarray(j) - mwx) * (yarray(j) - mwy))
stx = stx + ((xarray(j) - mwx) * (xarray(j) - mwx))
sty = sty + ((yarray(j) - mwy) * (yarray(j) - mwy))
Next j
stx = Sqr(Abs(stx * (1 / (n - 1))))
sty = Sqr(Abs(sty * (1 / (n - 1))))
stxy = stxy * (1 / (n - 1))
sx = 0
sy = 0
sxy = 0
sx2 = 0
sy2 = 0
For j = 1 To n
tx = xarray(j)
ty = yarray(j)
sx = sx + tx
sy = sy + ty
sxy = sxy + tx * ty
sx2 = sx2 + tx * tx
sy2 = sy2 + ty * ty
Next j
Cells(13, 6) = sx
Cells(14, 6) = sy
Cells(15, 6) = sxy
Cells(16, 6) = sx2
Cells(17, 6) = sy2
Cells(18, 6) = n
B = (n * sxy - sx * sy) / (n * sx2 - sx * sx)
A = (sy / n) - (B * (sx / n))
R = (n * sxy - sx * sy) / Sqr(Abs(n * sx2 - sx * sx) * Abs(n * sy2 - sy * sy))
R2 = R * R
K = 1 / (n - 1) * ((sxy - (n * (sx / n) * (sy / n))))
Cells(20, 6) = B
Cells(21, 6) = A
Cells(22, 6) = R
Cells(23, 6) = R2
Cells(24, 6) = K
Range("F20:F24").Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = 4
Exit Sub
fehlerweg:
MsgBox "Falsche Eingabe der Parameter!" & vbLf & vbLf & "Bitte überprüfen Sie ihre Eingaben.", vbExclamation, "Fehlerdialog", 0, 0
End Sub

Gruß Sylvio

AW: Berechnung von linearen Trends

07.09.2006 15:19:59

linearen

Danke an alle, habe das Problem so halbwegs gelöst.
m bekomme ich über RGP raus ( =RGP(O570:O1028)*459 )
b bekomme ich über =MITTELWERT(O570:O1028)-S570*SUMME(T570:T1028)/459 raus.
ist sicherlich nicht die eleganteste Lösung, aber ich bekomme die Werte, die ich brauche

AW: Berechnung von linearen Trends

07.09.2006 12:11:43

linearen

Hallo,
2 mögliche Lösungen:
Diagramm erzeugen und eine lineare Ausgleichsgerade anzeigen lassen incl deren Werte
Lineare Approximation mit Solver berechnen ( Solver muss über EXTRAS Add Inn Manager installiert sein ) Die Werte m und b dabei als veränderbare Zellen definieren.
Lineare Approximation:
Summe der Abweichungsquadrate berechnen, diese müssen bei idealer Approximation Null sein
Viele Grüße
MM

Beliebteste Forumthreads (12 Monate)

Forumthread: Berechnung von linearen Trends

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread