Weitere plausibilisierung einfügen
23.07.2008 09:01:00
greenhorn
für einen Motor habe ich bereits eine Plausibilisierung für die Drehzahl, sieht so aus.
For i = 3 To Range("D" & Rows.Count).End(xlUp).Row 'Plausibilisierung für die Drehzahl
If Cells(i, 4) > 1800 Then
Cells(i, 4) = Cells(i, 4) / 10
End If
Next i
Das geht drauf zurück, das vom messwertnehmer (bisher unerklärlich) manchmal werte kommen die um den faktor zehn erhöht sind. Siehe Bild:
jetzt hab ich feststellen müssen, dass der meswertnehmer auch so was bringt:
Kann man meine obige Plausibilisierung noch dahin erweitern, dass wenn vor und nach einem wert größer null eine "0" steht er dann in der betreffenden zelle die 0 einträgt?
z.B.
0
655
0
soll zu
0
0
0
werden.
Danke im Voraus.