Vergleichsoperator erweitern
04.06.2008 12:17:29
christian
ich habe für eine Spalte folgende Plausibilisierung:
wenn der Folgewert größer-gleich 3 des Vorwertes ist, wird in der Folgezelle der Vorwert eingetragen.
Dafür habe ich folgenden Code:
Application.ScreenUpdating = False
Dim i As Long
Cells(3, 3).Value = Cells(3, 3).Value * 1 'Plausibilisierung für die Temperatur
For i = 3 To Range("C" & Rows.Count).End(xlUp).Row - 1
Cells(i + 1, 3).Value = Cells(i + 1, 3).Value * 1
If Abs(Cells(i + 1, 3).Value) >= 3 * Abs(Cells(i, 3).Value) Then _
Cells(i + 1, 3).Value = Cells(i, 3).Value
Next i
If Abs(Cells(i, 3).Value) >= 3 * Abs(Cells(i - 1, 3).Value) Then _
Cells(i, 3).Value = Cells(i - 1, 3).Value
Jetzt möchte zudem absichern das er ebenso den Vorwert einträgt, falls der Folgewert kleiner-gleich 3 des Vorwertes ist.
Was muss ich ändern?
christian