Trendlinie Koeffizienten

17/08/2009 - 13:58 von peter tate | Report spam
Hallo,
suche nach einer Möglichkeit die erhaltenen 3 Koeffizienten für eine
Nàherungsparabel (Polynomisch 2. Ordnung)aus einem Diagramm einer
Messkurve auslesen, damit ich diese Werte für andere Berechnungen
weiterverwenden kann.
Abtippen ist irgendwie nicht mehr zeitgemàss ;-)

Danke für alle Tipps
Urs Bögli
 

Lesen sie die antworten

#1 Beverly
17/08/2009 - 15:01 | Warnen spam
Hi,

eine Möglichkeit:

Sub Trendlinienfaktoren_übertragen()
Dim strInhalt As String, strInhalt1 As String, strInhalt2 As String,
strInhalt3 As String
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
With .ChartObjects(1).Chart
.SeriesCollection(1).Trendlines(1).DisplayEquation = True
strInhalt = .SeriesCollection(1).Trendlines(1).DataLabel.Caption
.SeriesCollection(1).Trendlines(1).DisplayEquation = False
End With
.Range("D4") = strInhalt
strInhalt1 = Left(strInhalt, InStr(strInhalt, "x") - 1)
strInhalt1 = Mid(strInhalt1, InStr(strInhalt1, "=") + 1)
.Range("D5") = strInhalt1 * 1
strInhalt2 = Mid(strInhalt, InStr(strInhalt, "+") + 1)
strInhalt3 = Right(strInhalt2, InStr(strInhalt2, "+"))
strInhalt2 = Left(strInhalt2, InStrRev(strInhalt2, "x") - 1)
.Range("D6") = strInhalt2 * 1
If strInhalt3 <> "" Then .Range("D7") = Mid(strInhalt3,
InStr(strInhalt3, "+") + 1) * 1
End With
Application.ScreenUpdating = True
End Sub

Bis spàter,
Karin
http://beverly.excelhost.de/


"peter tate" wrote:

Hallo,
suche nach einer Möglichkeit die erhaltenen 3 Koeffizienten für eine
Nàherungsparabel (Polynomisch 2. Ordnung)aus einem Diagramm einer
Messkurve auslesen, damit ich diese Werte für andere Berechnungen
weiterverwenden kann.
Abtippen ist irgendwie nicht mehr zeitgemàss ;-)

Danke für alle Tipps
Urs Bögli

Ähnliche fragen