|
Guten Tag,
bin ein ziemlicher neuling im Bezug auf VBA und Makros und komme grade nicht weiter.
Es geht um folgendes:
Ich habe datenreihen vorliegen, die ich auf Ausreißer kontrollieren will. Als erste Näherung will ich das so machen, dass das Programm wenn wir z.B. 3 Datenpunkte (i = 0,1,2) haben es folgendes macht:
Wenn: Abs(Datenpunkt(0) - Datenpunkt(2)) > Abs(Datenpunkt(0) - Datenpunkt(1)) = Wahr, dann: Färbe Zelle Datenpunkt(1) rot
klingt an sich simpel, ist es sicherlich auch, aber ich schaffe es nicht :/
hier der bisherige Ansatz:
Sub AnpassungAusreis()
Dim A1 As Double
Dim A2 As Double
For j = 1 To j = 17
For i = 0 To i = 189
A1 = Abs(Cells((i + 2), j).Value - Cells(i, j).Value)
A2 = Abs(Cells((i + 1), j).Value - Cells(i, j).Value)
If A1 < A2 Then
Cells(i + 1, j).Select
Selected.Interior.ColorIndex = 3
End If
Next
Next
End Sub
Wäre super, wenn ihr mir helfen könntet.
P.s.: ich weiss, dass das keine Optimale Methode ist, um ausreißer zu finden :P
|