Hallo bekomme bei folgendem Code immer die Fehlermeldung:
Fehler beim Kompilieren. Objekt erforderlich!!
Woran kann das liegen?
Public Sub Gleichung_trendlinie()
Dim Gleichung As String
Dim strFormel As String
Set Gleichung = Charts("Diagramm2").SeriesCollection(1).Trendlines(1).DataLabel.Text
Sheets("Kennlinie").Cells(7, 15) = Formel
strFormel = Formel
strFormel = Replace(strFormel, "y", "", 1, -1, 1) strFormel = Replace(strFormel, ",", ".", 1, -1, 1) strFormel = Trim(Replace(strFormel, "x", "*RC[1]", 1, -1, 1))
Worksheets("Kennlinie").Columns(1).FormulaR1C1 = strFormel
Der Fehler taucht in der Zeile
Set Gleichung = Charts("Diagramm2").SeriesCollection(1).Trendlines(1).DataLabel.Text
auf.