Re: Function oder Sub nicht definiert?!
26.07.2002 09:08:51
Conny
Hallo,
dies ist der Code (ist allerdings noch nicht ganz fertig)Function EigeneFunktion() As Double
b = ActiveCell.Row
If (b >= 16 And b <= 116) Then
xWert = Range("A" & (b - 50) & ":A" & (b + 50))
yWert = Range("B" & (b - 50) & ":B" & (b + 50))
If (b >= 41 And b <= 91) Then
xWert = Range("A" & (b - 25) & ":A" & (b + 25))
yWert = Range("B" & (b - 25) & ":B" & (b + 25))
If (b >= 54 And b <= 78) Then
xWert = Range("A" & (b - 12) & ":A" & (b + 12))
yWert = Range("B" & (b - 12) & ":B" & (b + 12))
If (b >= 60 And b <= 72) Then
xWert = Range("A" & (b - 6) & ":A" & (b + 6))
yWert = Range("B" & (b - 6) & ":B" & (b + 6))
If (b >= 63 And b <= 69) Then
xWert = Range("A" & (b - 3) & ":A" & (b + 3))
yWert = Range("B" & (b - 3) & ":B" & (b + 3))
If (b >= 65 And b <= 67) Then
xWert = Range("A" & (b - 1) & ":A" & (b + 1))
yWert = Range("B" & (b - 1) & ":B" & (b + 1))
Steigung = WorksheetFunction.Slope(yWert, xWert)
Glättung = Worksheets(1).Cells(1, 1).Value
Ergebnis = Abs(Steigung)
If Ergebnis < 16 Then
If Ergebnis < 32 Then Ergebnis = Abs(Steigung)
Else: Ergebnis = Steigung
End If
End If
rng.Value = Round(rng.Value * 1.95583, 6)
EigeneFunktion = Ergebnis
End Function
in einer Zelle in Excel ruf ich dann "=EigeneFunktion()" auf