Formel für Trendlinie aus Diagramm übernehmen
das_chris
Ich habe ein Problem. In einem Diagramm habe ich einen Werteverlauf,
den ich durch eine Näherungskurve 6. Grades darstelle. Ich möchte alle
7 einzelnen Faktoren jetzt auslesen, um später damit weiterrechnen zu
können.
Ich habe den Term aus dem Diagramm in eine Zelle kopiert (anklicken >
markieren > kopieren > in Zelle einfügen) und anschließend mit den
Text-Funktionen, die Excel zur Verfügung stellt (TEIL(XXX;99;99)
FINDEN("x";99,99) LINKS(99;99) und WERT(XXX)) die einzelnen Faktoren
herausgezogen. Dieser Schritt funktioniert perfekt und ist unabhängig
von der unter "Trendlinie formatieren" eingestellten Nachkommazahl.
Das Problem entsteht, wenn ich diesen Vorgang mit einem Makro
automatisieren möchte. Die Versuche, den Vorgang "aufzunehmen"
schlugen bisher immer Fehl. Alles was ich innerhalb des Diagramms
gemacht habe wurde ignoriert.
Kennt jemand eine Möglichkeit, den Vorgang des Extrahierens der
Gleichung einer Trendlinie aus einem Diagramm per Makro zu
automatisieren?
In vorfreude auf möglichst viele Gedanken,
Christian
Microsoft Office Excel 2003 SP3
Wolfgang Habernoll
>"das_chris" <hans.christ...@googlemail.com> schrieb im Newsbeitrag
>news:3860af53-ad20-40e6...@q9g2000hsb.googlegroups.com...
>Hallo zusammen!
versuche es mal damit für Trendline in A1
Sub TrendlinieInZelle()
ActiveSheet.ChartObjects(1).Activate
ActiveWorkbook.Worksheets("Tabelle1").Range("A1") = _
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
End Sub
passe die Tabelle/Zelle und Diagrammnummer usw. deiner Umgebung an.
--
mfG
Wolfgang Habernoll
[ Win XP Home SP-2 , XL2002 ]
das_chris
online.de> wrote:
> Hallo
>
>
>
>
>
> >"das_chris" <hans.christian.scha...@googlemail.com> schrieb im Newsbeitrag
>
> - Zitierten Text anzeigen -
Hallo Wolfgang!
Vielen, vielen Dank! Ich musste noch ein bißchen rumprobieren, wie ich
rausfinde, welches Diagramm welche Nummer hat, dann hats geklappt.
Für alle die ein ähnliches Problem haben:
Die Nummer eines Diagramms findet ihr heraus, indem ihr aufs Diagramm
rechtsklickt und Diagrammfenster auswählt. In der Titelleiste des
Fensters steht die Diagrammnummer.
Folgende Situation:
Diagramm in Tab mit Namen "Tabelle 2"
Zielzelle für die Formel: Tabelle 2, A1
Diagramm hat die Nummer 3
Diagramm hat 4 Werte-Reihen (Kurven)
Die Trendlinie der 3. Kurve soll übernommen werden
Dann sieht der VB Quelltext so aus:
> Sub TrendlinieInZelle()
ActiveWorkbook.Worksheets("Tabelle2").Activate
> ActiveSheet.ChartObjects("Diagramm 3").Activate
> ActiveWorkbook.Worksheets("Tabelle2").Range("A1") = _
> ActiveChart.SeriesCollection(3).Trendlines(1).DataLabel.Text
> End Sub
Danke nochmal,
beste Grüße aus Süddeutschland
Christian