Hallo, Moe!
Für weitere Ratschläge weiterhin dankbar:
Hab’s gefunden. Ich hatte irgendwie eine potentielle Trendlinie drin. Das Codeschnipsel sieht bei mir so aus:
' potentieller Trend auslesen
strFormel = tblTrend.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
' MsgBox strFormel
strFormel = ReplaceAll(strFormel, "x", "\*(COLUMN())^")
strFormel = ReplaceAll(strFormel, "y", "")
strFormel = ReplaceAll(strFormel, ",", ".")
strFormel = strTextOhneLeerzeichen(strFormel)
' potentiellen Trend übernehmen
For intSpalte = 1 To intBisSpalte
tblTrend.Cells(5, intSpalte).FormulaR1C1 = strFormel
'strTest = tblTrend.Cells(5, intSpalte)
Next intSpalte
...
Zur Erläuterung: tblTrend ist eine Tabelle/Worksheet, auf dem eine Grafik/ChartObject ist. Die Formelbeschriftung ist wohl irgendwie „y=a*x^b“, wobei ich mit diskreten Werten (von 1 bis n) arbeitete, daher die Wandlung von x in COLUMN(). Dann noch das „,“ in der Formel in den Punkt (als Dezimalkomma) gewandelt und als Formel eingetragen.
Kommst Du damit klar? Je nach verwendeter Art der Trendkurve musst Du halt etwas umfangreicher parsen und Ausnahmen behandeln…
Hintergrund bei mir war, basierend auf bestehenden Werten und des Trendverlaufs der letzten m Werte eine Prognose für zukünftige Werte und damit eine Jahres-Durchschnittsberechnung für Dezember schon während des Jahres zu treffen.
Gruß, Manfred