ich bins nochmal ..
gestern hatte mir alex eine gute Lösung geschickt..nun habe ich versucht es für meine bedürfnisse anzupassen, da ich keine eingabe der werte drinhaben darf..leider funktioniert es jetzt nicht mehr..kann mir vielleicht jemand sagen was falsch ist?..ich vermute mal das es an den xWerte, yWerte liegt..
danke!
Function Test(a)
Dim yWerte, xWerte As Double
Dim Steigung, Glättung, Ergebnis As Double
yWerte = Range("B16:B18").Value
xWerte = Range("A16:A18").Value
Steigung = WorksheetFunction.Slope(yWerte, xWerte)
Glättung = Worksheets(1).Cells(1, 1).Value
Ergebnis = Abs(Steigung)
If Ergebnis < 16 * Glättung Then
If Ergebnis < 32 * Glättung Then Ergebnis = Abs(Steigung)
Else: Ergebnis = Steigung
End If
Test = Ergebnis
End Function