Aus Kennlinie eine Gleichung ausgeben

[murdock]

Hallo an alle,

ich habe ein dynamisches Diagramm. Das heißt je nachdem was ich in einem Dropdwonmenü auswähle zeigt es mit eine bestimmte Kennlinie an. Die Kennlinien stammen aus Messungen und folgen keiner regelmäßigen Funktion.

Gibt es eine Möglichkeit die angenäherte Funktion der Kennlinie in einer Zelle abzubilden (nicht im Daigramm bei Trendlinie - Funktion im Diagramm anzeigen).

Es befinden sich dann nämlich mehrere Kennlinien im Diagramm und mit Hilfe der Gleichungen will ich dann je nach Auswahl den Schnittpunkt berechnen lassen.

Danke euch schon mal

Viele Grüße

[Helvetier]

Hallo murdok
Google doch mal nach "trendlinie aus diagramm auslesen". Du wirst mit Sicherheit fündig. Musst Dich allerdings entscheiden, welche Trendlinie Du haben möchtest. Gruss

[murdock]

Ich habe bereits Stunden mit Googlen verbracht aber noch nicht die passende Lösung auf meine Frage gefunden.

[Ego]

Hallo murdok

meines Erachtens stellst du eine nicht zu lösenden Aufgabe:

Die Kennlinien ...  folgen keiner regelmäßigen Funktion. ...
Gibt es eine Möglichkeit die angenäherte Funktion der Kennlinie in einer Zelle abzubilden....
will ich dann... den Schnittpunkt berechnen lassen.

Wenn du nicht sagen kannst, von welchem Typ die Funktion ist gibt es auch nicht "die angenäherte Funktion". Und woher willst du wissen, ob es den Schnittpunkt oder vielleicht unendlich viele Schnittpunkte gibt?

Wenn du dich aber, wie Helvetier vorgeschlagen hat, für einen Funktionstyp entscheidest, kannst du mit der Funktion RGP die Parameter ermitteln.

[Helvetier]

Hallo murdock
Ich habe soeben an einem hier vorliegenden Diagramm versucht. Und es funktioniert!

Sub FormelAusDiagrammAuslesen()
    Dim strFormel
    strFormel = Tabelle2.ChartObjects("Diagramm 1").Chart.SeriesCollection(4).Trendlines(1).DataLabel.Text
End Sub

strFormel enthält tatsächlich die Formel. Aber Achtung: folgendes musst Du bei Dir anpassen:
- die Tabelle: hier Tabelle2
- ChartObjects: hier Diagramm 1
- SerieCollection: hier 4
- Trendlines: hier 1
- und tatsächlich müsst Du die Trendlinie ins Diagramm schreiben lassen. Kannst sie ja nach dem Auslesen wieder löschen.

Viel Erfolg und Gruss

[Ego]

Hallo,

beim Auslesen der Trendlinienformel hat man zwei Probleme:

1) Die Anzahl der Nachkommastellen sind in vielen Fällen zu gering.
2) Man bekommt einen Text, den man zur Weiterverarbeitung erst auseinanderpflücken muss. (Besonders hifreich bei dynamischen  Diagrammen )

Wenn man die Parameter über RGP ermittelt erhält man die einzelnen Parameter direkt in getrennte Zellen und mit 13stelliger Genauigkeit.


ps. Viel Spass bei der Ermittlung der Schnittpunkte.

[Helvetier]

Hallo murdock
Und so ist es dann schon etwas vollständiger:

 Sub FormelAusDiagrammAuslesen()  
    Dim strFormel
    With ActiveChart.FullSeriesCollection(4)
        .Trendlines.Add
        With .Trendlines(1)
            .Type = xlPolynomial
            .Order = 2
            .DisplayEquation = True
        End With
    End With
    strFormel = Tabelle2.ChartObjects("Diagramm 1").Chart.SeriesCollection(4).Trendlines(1).DataLabel.Text
    With ActiveChart.FullSeriesCollection(4).Trendlines(1)
        .DataLabel.Delete
        .Delete
    End With
End Sub

m.E. ist es bei Excel riskant zu sagen: geht nicht!
Gruss

[lupo1]

Wenn Ihr schon Code liefert bzw. was zu RGP sagt, Ego und Helvetier, dann bringt doch mal eben ein Codebeispiel, welches Testdaten in eine neue Tabelle schreibt, und dann Trendliniendiagramm und RGP-Formel.

Wenn die Zahlen auch noch hübsch rund sind, sollte es doch jeder verstehen. Sogar ich!

[Helvetier]

Lupo, mein Ansatz ist gedacht, für den Forumsteilnehmer, der ein Diagramm zur Verfügung hat. Da kann er experimentieren und weiterentwickeln. Wenn Du diese Voraussetzungen nicht hast, brauchst in dieser Sache auch keine Hilfe ...und ich keine Aufforderung etwas zu tun!

[lupo1]

Das war aber schnippisch. Lehn Dich zurück, und der Thread erreicht mühelos 30 Beiträge.