Office: Gleiche Kombination von Werten in 2 Spalten suchen

Hallo,

Ich möchte in einer Tabelle nach gleichen Wert-Kombinationen in Spalte B und C suchen (also z.B. alle Zeilen, in denen sich in Spalte B Wert aa und gleichzeitig in C Wert bb befindet). Für die gefundenen Zeilen soll dann überprüft werden, ob sich in irgendeiner von ihnen in Spalte D ein bestimmter Wert X befindet. Wenn ja: Setze Wert X in Spalte E.
Danach suche weiter nach den nächsten gleichen Wert-Kombinationen in Spalte B und C etc...

Udo

:)

 

Hi Udo,

so habe ich es verstanden. Falls nicht erkläre mir mal bitte was Du mit dem folgenden Satz gemeint hast: Für die gefundenen Zeilen soll dann überprüft werden, ob sich in irgendeiner von ihnen in Spalte D ein bestimmter Wert X befindet.

Code:

 

Hi Jürgen,

WertInSpalteB und WertInSpalteC sollen nicht per Inputbox festgelegt werden. Es soll in der Tabelle von oben nach irgendwelchen gleichen Wert-Kombinationen gesucht werden, inkl. der beschriebenen Folgeoperationen. Sobald die erste gleiche Wert-Kombination abgearbeitet ist, wird nach der nächsten gesucht und wieder das gleiche durchgeführt.

Erklärung zu "Für die gefundenen Zeilen soll dann überprüft werden, ob sich in irgendeiner von ihnen in Spalte D ein bestimmter Wert X befindet.":

Angenommen es werden 3 Zeilen mit gleicher Kombination in Spalte B und C gefunden. Dann wird in E der Wert von D eingetragen, wenn D=x ist:
B C D E
12 15 a
12 15 b
12 15 x x

Ich hoffe ich konnte es verständlich formulieren?
Grüsse & Danke,
Udo

 

Hi Udo,

Code:

 

Hi Jürgen,

nein - mit "If Cells(i, "B") = Cells(i, "C")" wird ja nur verglichen, ob Wert Zelle B gleich Wert Zelle C ist.
Es soll aber herausgefunden werden, ob die Kombination Wert B und Wert C auch in anderen Zeilen vorhanden ist. Wenn ja, soll in denjenigen der herausgefundenen Zeilen, in denen der Wert Zelle D = X ist, der Wert in Zelle E auch X sein.

Grüsse Udo

 

Hi Udo,

Code:

 

Hallo Jürgen,

Sorry - ich glaube ich hab mich vom Ansatz zum einen nicht richtig ausgedrückt, zum anderen hab ich auch nochmal das gewünschte Ergebnis überarbeiten müssen.
Der letzte code von dir hatte mir außerdem die Datei - Kopie natürlich - zerschossen, indem es unglaublich langsam in allen Spalten X gesetzt hat und die Datei über 12MB gross wurde. Ursache lag aber sicherlich im fehlerhaften Ansatz wie oben beschrieben.

Ich versuchs also noch mal und lade auch gleich eine Beispieldatei mit hoch:

Die Suche nach gleichen Wert-Kombinationen in Spalte B und C entfällt nun. Ich habe beide Werte zu einem Gesamtwert in Spalte B zusammengefasst.
Für alle gleichen Werte in Spalte B (sie sind sortiert, folgen also nacheinander wenn es gleiche Werte gibt) soll nun überprüft werden, ob in Spalte C ein "x" eingetragen ist. Wenn ja, soll in Spalte D auch ein "x" eingetragen werden (allerdings nur einmal - auch wenn in einer Gruppe von gleichen Werten in Spalte B mehrfach ein "x" in Spalte C vorkommt). In der Beispieldatei hab ich es nochmal beschrieben.

Hoffe es gibt dafür eine Lösung.

Vielen Dank & Grüsse,
Udo

 

Hi Udo,

nicht schön, aber funktioniert:

Code:

 

Hi Udo,

wir beschränken uns mal auf eine Spalte, ob sortiert oder nicht, ist egal! *Smilie

Code:

 

Hi Jürgen,

klappt wunderbar in meiner Beispieldatei.
Jetzt hab ich den code aber "übersetzt" auf meine "eigentliche" Datei und seltsamerweise funktioniert das da nicht richtig.
1. Erhalte ich die Meldung "Index außerhalb des gültigen Bereichs"
2. Die Spalten B/C/D habe ich verlegt nach G/H/I. Statt aber nun bei Übereinstimmung ein x (aus H) in I zu schreiben, wird der Wert aus G in I geschrieben.
3. Dies funktioniert auch nicht mehr: "Wenn ja, soll in Spalte I auch ein "x" eingetragen werden (allerdings nur einmal - auch wenn in einer Gruppe von gleichen Werten in Spalte G mehrfach ein "x" in Spalte H vorkommt)"

Kann es daran liegen, daß zu viele Zeilen abgearbeitet werden müssen? Ich hab nun über 2500 Zeilen...
Ich lad mal die Beispieldatei3 mit hoch. (hab die Zeilen ab 1600 löschen müssen wg Dateigrösse)

Danke & Grüsse,
Udo

 

sorry - jetzt auch die Beispieldatei3 inkl Makro...

 

Hi Udo,

Code:

 

Hi Jürgen,

super - so funktioniert das!
eine letzte Frage: Kann man den code auch so umwandeln, daß in Spalte H nicht nur nach x gesucht wird ('If LCase(Cells(i, "H")) = "x" Then') sondern nach mehreren Werten (z.B. x, y, z) und der Then-Prozess eintritt, sobald einer dieser Werte gefunden wird?

Gruss Udo

 

Hi Udo,

[ Code:

 

Hi Jürgen,

seh grad, daß du deine letzte Antwort nochmals geändert hast.
Ich hab den zuvor geposteten Code benutzt und er funktioniert (soweit ich das beurteilen kann) super.
Gibt es einen Grund für dein update - sollte ich besser diesen benutzen?

Vielen Dank jedenfalls für deine Hilfe!!
Udo