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
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
Ich habe bereits Stunden mit Googlen verbracht aber noch nicht die passende Lösung auf meine Frage gefunden.
Hallo murdok
meines Erachtens stellst du eine nicht zu lösenden Aufgabe:
Zitat: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.
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
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.
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
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!
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!
Das war aber schnippisch. Lehn Dich zurück, und der Thread erreicht mühelos 30 Beiträge.