RGP-Funktion per VBA-Makro möglich?

Hallo Forum-Gemeinde,
ich habe ein Problem mit der RGP Funktion. Da ich diese Funktion häufig nutze um mir die Koeffizienten von Ausgleichspolynomen verschiedener Ordnung zu berechnen (Grad 1 bis 6), würde ich diesen Ablauf gerne als VBA-Makro nutzen.
Ich habe mir den typischen Ablauf für das Aufziehen des Werte-Arrays für ein Polynom 2ter Ordnung und der Eingabe der RGP Funktion mal mittels des Makrorekorders angeschaut. Dieser zeigt mir nach der Eingabe von =RGP(H11:H453;K11:K453;WAHR;WAHR)


Sub RGP_Test()
Range("X3:Z7").Select 'aufziehen des Lösungsarrays
Selection.FormulaArray = _
"=LINEST(R[8]C[-16]:R[450]C[-16],R[8]C[-13]:R[450]C[-13],TRUE,TRUE)"
End Sub

Aus der Eingabe wird also dieser Kauderwelsch. Ich kann zwar noch nachvollziehen, dass die Angaben anscheinend absolute Positionsangaben meiner Datenreihen sind, doch warum aus der RGP-Funktion aufeinmal "LINEST" wird ist mir nicht klar. Das ist aber auch nicht das Problem...
Das Problem ist vielmehr, dass ich immer unterschiedlich lange Datenreihen habe, für die die RGP Funktion die Lösungsmatrix berechnen soll. Da in der RGP Funktion aber nur absolute Angaben stehen, nützt mir das aufgezeichnete Makro daher nichts.
Kann mir einer der anwesenden Experten weiterhelfen, wie ich es per VBA-Script hinbekomme, dass mir das Makro automatisch die richtige/aktuelle Länge der Datenreihen in die RGP-Funktion einsetzt und das Lösungsarray darstellt?
Meine Rohdaten habe ich unter https://www.herber.de/bbs/user/29194.xls
hochgeladen. Dort habe ich beispielhaft zwei Arrays aufgezogen und die RGP-Funktion umständlich eingetippt (nachdem ich ebenso umständlich nach unten gescrollt habe um zu schauen, wo die Daten aufhören damit ich den Endpunkt weiß).
Sollte sich nun die Länge der Datenreihen erhöhen, passen meine Angaben im Lösungsarray ja nicht mehr und die Koeffizienten des Ausgleichspolynoms werden nicht mehr korrekt berechnet, da die letzten Daten nicht mehr in die Berechnung mit eingehen!
Für dieses komplexe Problem bräuchte ich kompetente Hilfe, da ich dass alleine leider niemals hinbekomme!
Gruß Thias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub rgp2() Dim zei1, zei2, sp1, sp2, letzte, a, b zei1 = 3 sp1 = 24 'X zei2 = 7 sp2 = 26 a = sp1 - 16 letzte = Range("A65536").End(xlUp).Row Range(Cells(zei1, sp1), Cells(zei2, sp2)).Select MsgBox "=LINEST(R[11-" & zei1 & "]C[" & sp1 & "-16]:R[" & letzte & "]C[" & sp1 & "-16],R[11-" & zei1 & "]C[-13]:R[" & letzte & "]C[-13],TRUE,TRUE)" Selection.FormulaArray = "=LINEST(R[8]C[" & a & "]:R[" & letzte & "]C[" & a & "],R[8]C[-13]:R[" & letzte & "]C[-13],TRUE,TRUE)" End Sub

Hallo Micha,
ein sehr eleganter Ansatz. Wenn ich nur die Koeffizienten benötigen würde, wäre das eine super Lösung. Aber ich möchte auch noch gerne die anderen Werte der RGP-Lösungsmatrix nutzen, wie z.B. die Residualquadratsumme und das Bestimmtheitsmaß.
Wenn ich mir Deine Definition der Namen so anschaue, dann habe ich dazu aber eine Frage:
Verstehe ich es recht, dass Du bei dem folgenden Ausdruck quasi einfach auf einen Bereich von B11 bis B1000 schaust und damit verhinderst, dass Werte übersehen werden?
KGmV bezieht sich auf: =BEREICH.VERSCHIEBEN(Tabelle1!$B$11;0;0;ANZAHL2(Tabelle1!$B$11:$B$1000);1
Wäre es denn nicht auch möglich, statt den obigen Ausdruck den nachfolgenden zu verwenden?
=BEREICH.VERSCHIEBEN(Tabelle1!$B$11;0;0;ANZAHL2(Tabelle1!$B:$B))+JETZT()*0
Das +JETZT()*0 soll einfach in der Spalte B schauen, ob sich etwas verändert hat und sorgt damit für eine dynamische Aktualisierung. Ob das geht weiß ich nicht. Habe nur den Trick von jemand anderen in Bezug auf ein anderes Problem gelernt. Ob man das hierauf einfach so übertragen kann, weiß ich daher nicht. Vielleicht probiere ich es mal irgendwann aus.
Trotzdem auch Dir vielen Dank für Deine tolle Idee! Vielleicht kann ich die auch noch verwenden.
Gruß Thias

Beliebteste Forumthreads (12 Monate)

RGP-Funktion per VBA-Makro möglich?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread