Ist diese Plausibilisereung korrekt erstellt ????

Hallo,
Ich habe folgende Aufagbe: In einer Spalte stehen z.B. folgende Messwerte für die Temperatur:
4
4
45
4
4
5
oder auch:
-2
-2
-23
-2
-3
Die Werte werden alle zehn sekunden aufgezeichnet.
Ich möchte die gesamte Spalte plausbilisieren, das heißt wenn ein Wert größer als das doppelte des vorwertes ist (auch bei minusgraden, nach oben und nach unten) soll der vorwert eingetragen werden.
Ich habe folgenden Ansatz:


Sub test()
Application.ScreenUpdating = False
Dim vorwert as double
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).value > 2*vorwert then cells (i, 1) = vorwert
End If
Next i
Application.ScreenUpdating = True
End Sub

Allerdings fehlt mir noch die Beschreibung damit das auch bei negativen werten (minusgraden) funktioniert.
Wer kann helfen?
Danke
christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Application.ScreenUpdating = False Dim i As Long For i = Range("A65536").End(xlUp).Row To 3 Step -1 If Abs(Cells(i, 1).Value) > 2 * Abs(Cells(i - 1, 1).Value) Then Cells(i, 1).Value = _ Cells(i - 1, 1).Value Next i Application.ScreenUpdating = True End Sub

Sub test() Application.ScreenUpdating = False Dim i As Long For i = Range("A65536").End(xlUp).Row To 2 Step -1 Cells(i, 1).Value = Cells(i, 1).Value * 1 If Abs(Cells(i, 1).Value) > 2 * Abs(Cells(i - 1, 1).Value) Then Cells(i, 1).Value = _ Cells(i - 1, 1).Value Next i Application.ScreenUpdating = True End Sub

Option Explicit Sub test() Application.ScreenUpdating = False Dim i As Long For i = Range("C65536").End(xlUp).Row To 4 Step -1 Cells(i, 3).Value = Cells(i, 3).Value * 1 If Abs(Cells(i, 3).Value) > 2 * Abs(Cells(i - 1, 3).Value) Then _ Cells(i, 3).Value = Cells(i - 1, 3).Value Next i If Abs(Cells(i, 3).Value) > 2 * Abs(Cells(i + 1, 3).Value) Then _ Cells(i, 3).Value = Cells(i + 1, 3).Value Application.ScreenUpdating = True End Sub

Sub test() Application.ScreenUpdating = False Dim i As Long For i = Range("C65536").End(xlUp).Row To 4 Step -1 Cells(i, 3).Value = Cells(i, 3).Value * 1 If Abs(Cells(i, 3).Value) > 2 * Abs(Cells(i - 1, 3).Value) Then _ Cells(i, 3).Value = Cells(i - 1, 3).Value Next i Application.ScreenUpdating = True End Sub

Sub test() Application.ScreenUpdating = False Dim i As Long For i = Range("C65536").End(xlUp).Row To 4 Step -1 Cells(i, 3).Value = Cells(i, 3).Value * 1 If Abs(Cells(i, 3).Value) >= 2 * Abs(Cells(i - 1, 3).Value) Then _ Cells(i, 3).Value = Cells(i - 1, 3).Value Next i Application.ScreenUpdating = True End Sub

Option Explicit Sub test() Application.ScreenUpdating = False Dim i As Long Cells(3, 3).Value = Cells(3, 3).Value * 1 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) >= 2 * Abs(Cells(i, 3).Value) Then _ Cells(i + 1, 3).Value = Cells(i, 3).Value Next i If Abs(Cells(i, 3).Value) >= 2 * Abs(Cells(i - 1, 3).Value) Then _ Cells(i, 3).Value = Cells(i - 1, 3).Value Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Ist diese Plausibilisereung korrekt erstellt ????

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread