Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Weitere plausibilisierung einfügen

Forumthread: Weitere plausibilisierung einfügen

Weitere plausibilisierung einfügen
23.07.2008 09:01:00
greenhorn
Hallo,
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:
Userbild
jetzt hab ich feststellen müssen, dass der meswertnehmer auch so was bringt:
Userbild
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.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Weitere plausibilisierung einfügen
23.07.2008 10:51:00
Rudi
Hallo,
so?

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
ElseIf i > 3 _
And i


Gruß
Rudi

AW: Weitere plausibilisierung einfügen
23.07.2008 11:05:00
greenhorn
danke erstmal so könnte es passen.
Um genau sicher zu gehen das der Motor aus ist, kann er zwei zellen davor und danach prüfen?
Also z.B. so:

0
0
655
0
0


wird zu 


0
0
0
0
0


Anzeige
AW: Weitere plausibilisierung einfügen
23.07.2008 11:31:00
Rudi
Hallo,

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
Select Case i
Case 5 To Range("D" & Rows.Count).End(xlUp).Row - 2
Cells(i, 4) = _
-(WorksheetFunction.Sum(Range(Cells(i - 2, 4), Cells(i + 2, 4)))  Cells(i, 4)) * Cells( _
i, 4)
End Select
Next i


Gruß
Rudi

Anzeige
so gehts
23.07.2008 13:16:00
greenhorn
danke nochmal
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige