Office: werte in spalten vergleichen. übereinstimmung = bestimmte werte übertragen

Hallo,

bräuchte mal Hilfe in der Erstellung eines VBA codes der folgendes kann:

Vergleich von Spalte B in Arbeitsblatt Sheet1 mit Spalte A in Arbeitsblatt Sheet2. Ist ein Wert aus Sheet1/Spalte B in Sheet2/Spalte A vorhanden (Ausnahme: die Zellen sind leer), sollen die Werte der Zellen C,D,E aus der entsprechenden Zeile in Sheet1 in die Zellen H,I,J der entsprechenden Zeile von Sheet2 übertragen werden.

Grüsse,
Udo

:)

 

Hallo Udo,

versuch's mal hiermit:

Code:

 

Hallo Ingolf,

es passiert etwas, aber letztendlich nicht das gewünschte *wink.gif*
In Sheet2 werden die entsprechenden Zeilen in den Spalten C, D, E gefüllt, allerdings mit Leerwerten. Kann grad nicht nachvollziehen, woher aus Sheet1 diese stammen.
Nehme an, das Problem verursacht die Codezeile:
rngQuelle.Offset(0, 2).Resize(1, 3).Copy Destination:=rngZiel.Offset(0, 1).Resize(1, 3)

Was tatsächlich passieren soll: kopiere aus Sheet1 die Werte aus Spalte C,D,E nach Sheet2 in Spalte H,I,J.
Und (das hab ich erst jetzt beim Ausprobieren festgestellt, sorry): Es sollen tatsächlich nur die Werte übertragen werden. Beim Ausprobieren deines codes wurde auch das Format überragen, was zu einer unerwünschten Änderung der Hintergrundfarbe führte.

Wäre nett, wenn du dir das nochmal ansehen könntest.

Besten Dank,
Udo

 

Hallo Udo,

ich habe das Makro hinsichtlich der Zielspalten (H,I,J) und des Einfügens ausschließlich der Werte, ohne Formatierungen, geändert. Die Datenquelle stimmt allerdings meiner Ansicht nach. Ich hab dir daher auch mal eine Beispielmappe hochgeladen. Hier das geänderte Makro:

Code:

 

Hallo Ingolf,

der code in deiner Arbeitsmappe funktionierte und hat mir geholfen, den Fehler zu finden *Smilie :
Der Ansatz in meiner Mappe war:
Vergleich von Spalte B in Arbeitsblatt Sheet1 mit Spalte A in Arbeitsblatt Sheet2.
In deinem geposteten code wurde Spalte A in Arbeitsblatt Sheet1 mit Spalte B in Arbeitsblatt Sheet 2 verglichen.
Nachdem ich das angepasst hab und die zu kopeirenden und einzufügenden Zellen eine Position nach rechts geschoben hab funktioniert das ganze prima.
Vielen Dank!

So sieht das im Detail jetzt aus:

Code:

 

Hallo Ingolf,

plötzlich tut sich doch noch ein Problem auf:

Ich wende den code auch in einer anderen Datei an. Dort befinden sich jedoch in 2 Zeilen (in die allerdings nichts hineinübertragen wird) verbundene Zellen in der Zieldatei Sheet2. Daher erhalte ich bei Ausführung des codes die Fehlermeldung:
"Laufzeitfehler 1004: Für diese Aktion müssen alle verbundenen Zellen dieselbe Grösse haben"

Die einfachste Lösung (Verbindung der Zellen aufheben) ist leider keine Option.
Gibt es eine Möglichkeit, im Vergleich der beiden Sheets die Zeilen auszuschliessen, in denen sichverbundene Zellen befinden? Das wäre doch eine Möglichkeit, den Fehler zu umgehen . oder?

Gruss Udo

 

Hallo Udo,

wenn du auf die Zeilen mit den verbundenen Zellen verzichten kannst, ist das natürlich eine Möglichkeit. Versuch's mal hiermit:

Code:

 

Hallo Ingolf,

Perfekt, danke!

Gruss Udo

 

Hallo Ingolf,

eine Frage hab ich doch noch:

Wenn ich nach dem Vergleich und übertragen in Sheet2 die ganze Prozedur auch auf ein Sheet3 und Sheet4 anwenden will:

Muß der gesamte code zwischen "With" und "End with" für jedes Zielsheet wiederholt werden oder kann ich die Zielsheets in der Zeile "With ThisWorkbook.Sheets("Sheet2")" auf irgendeine Weise aufzählen?

Gruss Udo

 

Hallo Udo,

die Tabellenblätter lassen sich über eine Objektvariable in einer For Each...Next-Schleife abarbeiten:

Code:

 

Halo Ingolf,

das funktioniert, danke.
Bin jedoch durch diese Erweiterung auf ein Phänomen gestossen, welches vorher nicht auftrat:

Der Vergleich von Sheet1 Spalte B mit SheetX Spalte A wird auch als match gewertet, wenn der Wert in SheetX Spalte A nur teilweise in Sheet1 Spalte B vorhanden ist. WOran liegt das?
Beispiel:
Sheet1 B14: Wert "174"
Sheet3 A29: Wert "74"
Tatsächlich darf aber nur eine exakte Übereinstimmung (174/174 oder 74/74) die Übertragung der definierten anderen Zellen auslösen.

Gruss Udo

 

Hallo Udo,

das lässt sich über einen Parameter der Find-Methode lösen. Ergänze bitte folgende Zeile im Makro:

Code:

 

Das war's, genau. Nochmals vielen Dank für deine Hilfe!
Udo