Trendlines in chart integrieren VBA
22.06.2013 15:00:34
Kapitän
Ich habe einen VBA-Code der mir eine Reihe von Diagrammen ausgibt.
Weil ich nun Schnittpunkte mit den im Diagramm gezeigten Messwerten ermitteln muss, möchte ich eine Trendline Type:=xlMovingAvg in die Diagramme einfügen.
Wie man das Trendlineobjekt definiert, die Eigenschaften einstellt ist mir soweit klar, allerdings wird mir die Trendline nicht angezeigt, bzw. der Code läuft nicht mehr.
Meine Vermutung ist, dass es Am xlXYScatter-Charakter des Diagramms liegt. Habe schon recht lange für diesen Code gebraucht, weil ich absoluter VBA-Neuling bin.
Vielleicht kann mir jemand helfen? Und mir dann vielleicht sagen, wie ich die Funktion im Nachhinein aus der Trendline bekomme um dann mit meiner anderen Funktion zu schneiden...
Mein QCode:
Sub charts()
Dim zeile, k, rngX As Range, rngY As Range
Dim wsDaten As Worksheet
Application.ScreenUpdating = False
Set wsDaten = Sheets(8)
wsDaten.Select
Range("A1").Select
For k = 1 To Cells(4, Columns.Count).End(xlToLeft).Column Step 6
With wsDaten
zeile = .Cells(.Rows.Count, k).End(xlUp).Row
Set rngX = .Range(.Cells(8, k + 2), .Cells(zeile, k + 2))
Set rngY = rngX.Offset(, 2)
With .Shapes.AddChart.Chart
.ChartType = xlXYScatter
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = rngY
.XValues = rngX
.name = wsDaten.Cells(4, k)
End With
.Location Where:=xlLocationAsNewSheet, name:=wsDaten.Cells(4, k)
End With
End With
Next
End Sub
Kapitän
Anzeige