Trendlinienformel Diagramm

Forumthread: Trendlinienformel Diagramm

28.08.2020 20:52:56

Werner

Hallo Excel-Fachleute!
Von Beverly verwende ich folgendes Makro, um aus ein
vorhandenes Diagramm eine Trendlinienformel
in eine Zelle zu kopieren:

Sub Trendlinienformel_uebertragen()
With ActiveSheet.ChartObjects(1).Chart
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

Diese Makro funktioniert einwandfrei.
Mit folgendem Makro erzeuge ich in einem Diagramm eine Trendlinie mit Formel.

Sub Trending()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.Border.LineStyle = xlContinuous
End With
End Sub

Diese Makro funktioniert auch einwandfrei.
Aber wenn ich beide Makros zusammenfüge, dann wird die Formel nicht in die Zelle kopiert.

Sub Trend_Formel()
With ActiveChart.SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.DisplayEquation = True
End With
With ActiveSheet.ChartObjects(1).Chart
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Trendlinienformel Diagramm

28.08.2020 22:46:05

onur

Die sind nicht wirklich identisch - es fehlt

ActiveSheet.ChartObjects(1).Activate

AW: Trendlinienformel Diagramm

29.08.2020 07:42:47

Hajo_Zi

Ich bin nicht der Diagrammmensch, aber
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.

AW: Trendlinienformel Diagramm

29.08.2020 14:48:46

Beverly

Hi Werner,
so wird ein Schuh daraus:

Sub Trend_Formel()
With ActiveSheet.ChartObjects(1).Chart
With .SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.DisplayEquation = True
End With
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

AW: Trendlinienformel Diagramm

29.08.2020 18:49:44

Werner

Guten Tag Karin!
Einen schönen Dank für Deine Mitteilung.
Die Mitteilung von "Onur" habe ich nicht verstanden und von "Hajo_Zi"
fand ich recht komisch und konnte in keinster Weise verwendet werden.
Bei Herausnahme von Aktivat kam immer eine Fehlermeldung.
Deine Version funktioniert zwar, aber auch damit wird die Trendlinienformel
nicht in der Zelle angezeigt.
Wenn ich meine zusammengesetzte Version zweimal ausführe,
dann wird die Tredlinienformel in die Zelle eingefügt.
Beim ersten Ausführen wird die Trendlinie mit Formel erstellt.
Beim zweiten Ausführen wird die Formel in die Zelle eingetragen.
Aber die Trendlinie ist dann zweimal vorhanden.
Die kann danach noch gelöscht werden

Sub Trend_Formel()
With ActiveChart.SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.DisplayEquation = True
End With
With ActiveSheet.ChartObjects(1).Chart
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

Ich versuche, noch eine passende Lösung zu finden.
Meine Endversion soll auch mir das Bestimmtheitsmaß in eine weitere
Zelle eintragen.
Folgen Version funktioniert bisher einwandfrei.
Ich versuche diese Version aber noch zu optimieren.

Sub Trend_Formel_02()
Application.ScreenUpdating = False
Range("Trend_Formel") = ""
Range("Bestimmtheitsmaß") = ""
'MsgBox ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Count
If ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Count >= 1 Then
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Delete
End If
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, Order:= _
_
Range("Order"), DisplayEquation:=True
ActiveSheet.ChartObjects(1).Activate
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, Order:= _
_
Range("Order")
Range("Trend_Formel") = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Caption
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Delete
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, Order:= _
_
Range("Order"), DisplayRSquared:=True
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = Range("Order")
.Border.ColorIndex = 3
.Border.Weight = xlMedium
End With
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Delete
Range("Bestimmtheitsmaß") = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Caption
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Delete
End Sub

Schöne Grüße
Werner

AW: Trendlinienformel Diagramm

29.08.2020 18:56:20

onur

Hallo "Werner",
Was ich meinte war nur:
in der zusammengefügten Version:

Sub Trend_Formel()
With ActiveChart.SeriesCollection(1).Trendlines.Add
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.DisplayEquation = True
End With
With ActiveSheet.ChartObjects(1).Chart
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

fehlt die Zeile

ActiveSheet.ChartObjects(1).Activate

die aber im zweiten Makro enthalten ist.
Ich wollte nicht sagen, dass es daran liegt, ich habe dies nur festgestellt.
Gruss
Onur

AW: Trendlinienformel Diagramm

29.08.2020 20:05:34

Beverly

Hi Werner,
dass die Formel nicht in der Zelle angezeigt wird hängt wohl mit dem graphischen Verhalten der neueren Excelversionen zusammen - die Trendlinie dauert zu lange im Aufbau, sodass der Code anscheinend schon durchgelaufen ist ehe die Formel aus dem Caption "abgelesen" werden kann. Abhilfe schafft da leider nur, die Trendlinie zu aktivieren/selektieren:

Sub Trend_Formel()
Dim strFormel As String
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection(1).Trendlines.Add
With .SeriesCollection(1).Trendlines(1)
.Type = xlPolynomial
.Order = 5
.Border.ColorIndex = 3
.Border.Weight = xlMedium
.DisplayEquation = True
.Select
End With
Range("AL5") = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
End With
End Sub

AW: Trendlinienformel Diagramm

30.08.2020 11:00:55

Werner

Guten Tag, Karin!
Deine Version ( Trendlinie zu aktivieren/selektieren ) funktioniert einwandfrei.
So hatte ich mir das Makro vorgestellt. Aber diese Variante zu erstellen,
dafür fehlt mir noch einiges an Excel-Wissen.
Einen schönen Dank für Deine Hilfe.
Du bist die Beste!
Auch an "onur" einen schönen Dank.
Ich habe Deine erste Mitteilung nicht richtig verstanden.
Schöne Grüße
Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Trendlinienformel Diagramm

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread