Fehler in If-Abfrage
25.07.2002 14:00:22
Conny
ich schon wieder
hab einen Fehler in der If-Abfrage. Fehlermeldung: Syntaxfehler.
Meine Frage: Kann ich nur eine bedingung angeben?
Hier der Code:
Sub Zeile()
b = ActiveCell.Row
If (b >= 16 And If b <= 116) Then
xWert = b + 50
yWert = b - 50
Steigung = WorksheetFunction.Slope(yWert, xWert)
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
End If
End Sub
Danke für Hilfe
Conny
Anzeige