Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nachbarzelle als Auswertekriterium

Nachbarzelle als Auswertekriterium
07.11.2004 17:06:03
reiner
In einer monatlich neu angelegten EXCEL-Datei werden täglich Wettermessdaten (ca. 3000 Datensätze bis zum Ende eines Monats)eingelesen.
Spalte „A“ enthält das Datum; Spalte „B“ die dem Datensatz zugeordnete Uhrzeit; Spalte „C“ und „D“ enthalten Messwerte. Die standardmäßig ausgeblendete Spalte „E“ enthält den Wert „11“ für eine fehlerfreie Anzeige, bei „1“ sind die In Spalte „C“ und „D“ enthaltenen Werte fehlerbehaftet.
Bei einer „1“ in Spalte „E“ soll zunächst der zugehörige Wert in Spalte „C“ der gleichen Zeile mit dem Text „Störung“ überschrieben werden. Diese Auswertung könnte evtl. mit einer „Do Loop-Anweisung“ bis zum letzten Datensatz der Spalte „C“ erfolgen. Bei einer „11“ in Spalte „E“ soll selbstverständlich der vorhandene wert erhalten bleiben. Anschließend soll die gleiche Prozedur mit den Werten der Spalte „D“ durchgeführt werden. Die gesamte Tabelle enthält derzeit 11 mit Messwerten gefüllte Spalten.
Falls mir ein Teilnehmer im Forum einen Lösungsansatz mit EXCEL-VBA bieten kann wäre ich hierfür sehr dankbar; die Erweiterung auf die zusätzlichen Spalten würde ich dann sicher selbst durchführen können.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachbarzelle als Auswertekriterium
07.11.2004 17:16:58
Josef
Hallo Reiner!
Wenn ich dich richtig verstanden habe, dann zB. so.

Sub Stoerung()
Dim lRow As Long
Dim lEnd As Long
lEnd = Range("A65536").End(xlUp).Row
For lRow = 1 To lEnd
If Cells(lRow, 5) = 1 Then Range(Cells(lRow, 3), Cells(lRow, 4)) = "Störung"
Next
End Sub

Gruß Sepp
AW: Nachbarzelle als Auswertekriterium
07.11.2004 22:53:22
reiner
vielen Dank Sepp
hat wunderbar geklappt
reiner
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige