Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Trendlinienformel Diagramm

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

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

Betreff
Datum
Anwender
Anzeige
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 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
Anzeige
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
Anzeige
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

Anzeige
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

Links zu Excel-Dialogen

Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige