Moin VBA Freunde,
ich erstelle über eine Schleife Datenreihen in ein Chart mit Trendlinien. Es werden mir zu der Trendlinie TextBoxen erstellt mit der Funktion und R².
For ts = 1 To Anzflotte
With TC.Chart
.SeriesCollection.NewSeries
With .SeriesCollection(ts)
.ChartType = xlColumnClustered
.Name = "FC_K " & ts
.Values = y
.XValues = x
.Format.Fill.ForeColor.RGB = RGB(colorint, colorint, colorint)
.Format.Line.ForeColor.RGB = RGB(0, 0, 0)
.Trendlines.Add
With .Trendlines(1)
.Name = "Glättung von FC_K " &ts .DisplayRSquared = True
.DisplayEquation = True
.Type = xlPower
With .Format.Line
.Visible = msoFalse
'.ForeColor.RGB = RGB(colorint1, colorint2, colorint3)
'.Weight = 1.5
End With
End With
End With
Next ts
In einem anderen Sub lasse ich mir die Informationen der Trendlinien auslesen (also die Funktion und R²)
For i = 1 To Anzflotte '- 1
tr = Application.ActiveChart.SeriesCollection(i).Trendlines(1).DataLabel.Text ' Equation and Rsquared
posR = InStr(tr, "R") ' Position R raussuchen
' Rsquared eintragen
tr = Right(tr, Len(tr) - posR - 4)
Worksheets("Chart_Flotte").Cells(30 + i, 23) = tr
' Equation eintragen
tr = Application.ActiveChart.SeriesCollection(i).Trendlines(1).DataLabel.Text ' Equation and Rsquared
tr = Left(tr, posR - 2)
Worksheets("Chart_Flotte").Cells(30 + i, 22) = tr
With ActiveChart.SeriesCollection(i).Trendlines(1)
.DisplayRSquared = False
.DisplayEquation = False
End With
Next i
Funktioniert auch super. NUUR die Letzte Datenreihe kann er nicht auslesen, das heißt: Sobald i = AnzFlotte, kommt ein Fehler, obwohl es genau AnzFlotte viele Datenreihen gibt?
Ich verstehe einfach nicht warum?
Gruß
Tobi