Befehlserleuterung
10.06.2006 19:15:02
Addes
Kann mir jemand sagen was genau in der letzten zeile geschieht?
Sub Gleichung_trendlinie()
Dim Gleichung As String
Dim strFormel As String
Gleichung = Worksheets("Kennlinie").ChartObjects(2).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
Sheets("Kennlinie").Cells(7, 15) = Gleichung
strFormel = Gleichung
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
End Sub