Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Listen vergleichen und ergänzen

Zwei Listen vergleichen und ergänzen
01.07.2015 18:45:02
Robin
Hallo zusammen,
habe schon viel gestöbert und für mein (vermutlich einfaches) Problem keine Lösung gefunden.
Ich habe zwei Listen, die auf einem Worksheet an unterschiedlichen Stellen stehen.
Vereinfacht:
Liste1: im Bereich(A1:A9)
ABC
DEF
GHI
JKL
MNO
PQR
STU
VWX
YZ
und Liste2: im Bereich(B1:B5)
VWX
JKL
MNO
ABC
PQR
Nun soll Liste2 mit Liste1 verglichen werden und alle Werte, die in Liste2 fehlen einfach unterhalb angefügt werden. Wichtig ist, dass der Zellbereich in dem die beiden Listen sich befinden fix ist, da darunter weitere Daten folgen.
Hat jemand eine Idee, wie man das ganze in VBA umsetzen könnte?
Viele Grüße
Robin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Listen vergleichen und ergänzen
02.07.2015 06:47:09
MCO
Moin!
Die Idee scheint mir nicht ganz ausgereift, aber hier der Code dazu: 
Sub anfügen()
For Each cl In Range("A1:A9")
Set gef = Range("B1:B5").Find(cl, , , xlWhole)
If gef Is Nothing Then Range("B1").End(xlDown).Offset(1, 0) = cl
Next cl
End Sub
Was ist, wenn ein angefügter Wert nochmal angefügt werden ´soll? Bisher ist, wie gewünscht, der Suchbereich fix.
Gruß, MCO

AW: Zwei Listen vergleichen und ergänzen
02.07.2015 18:27:57
Robin
Hallo und vielen Dank für die aufgezeigten Möglichkeiten. Der Code von MCO war genau, wonach ich gesucht hatte. Danke vielmals!
Gruß
Robin

Anzeige
alternativ würde auch eine kl. Formel reichen ...
02.07.2015 09:26:37
der
Hallo Robin,
... in die erste Leerzelle der Spalte B im vorgegebenen Bereich (im Beispiel wäre es B6) folgende Formel:
=INDEX(A:A;AGGREGAT(14;6;ZEILE(A$1:A$9)/ISTNV(VERGLEICH(A$1:A$9;B$1:INDEX(B:B;ZEILE()-1);));1))
und diese bis B9 ziehend kopieren.
Gruß Werner
.. , - ...

AW: Zwei Listen vergleichen und ergänzen
02.07.2015 10:40:19
Daniel
Hi
wenn die einzelnen Listen selbst eindeutig sind (dh ein Wert kommt in einer Liste nur 1x vor) dann ohne Formel so:
1. B1:B5 nach A10 kopieren
2. im gesamten Bereich A1:A14 die Duplikate entfernen (Daten - Datentools - Duplikateentfernen)
als makro dann so 
Range("B1:B5").Copy Destination:=Range("A10")
Range("A1:A15").RemoveDuplicates 1, xlno
Gruß Daniel

Anzeige
AW: Zwei Listen vergleichen und ergänzen
02.07.2015 10:40:26
Daniel
Hi
wenn die einzelnen Listen selbst eindeutig sind (dh ein Wert kommt in einer Liste nur 1x vor) dann ohne Formel so:
1. B1:B5 nach A10 kopieren
2. im gesamten Bereich A1:A14 die Duplikate entfernen (Daten - Datentools - Duplikateentfernen)
als makro dann so 
Range("B1:B5").Copy Destination:=Range("A10")
Range("A1:A15").RemoveDuplicates 1, xlno
Gruß Daniel

309 Forumthreads zu ähnlichen Themen

Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
2 Zellen, gleicher Inhalt, egal welche ausgefüllt
Peter

Hallo zusammen,
folgende Frage: ich habe eine Datei mit mehreren Tabellenblättern. Dabei kommen teilweise die gleichen Daten auf verschiedenen Tabellenblättern vor.
Ich möchte die Daten nur einmal eingeben. Nun habe ich es so gelöst, dass man die Daten in die Zelle eingeben muss, die ma...
20.11.2008 11:19:31
Thread-ID: 1026347
3 Beiträge
Anzeige
2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 Beiträge
2 Listen vergleichen und Unterschiede markieren
stefan

Hallo zusammen,
ich habe 2 Listen (a1:A100 und B1:B100).
Diese beiden Listen möchte ich vergleichen und prüfen, welche Werte in von Spalte 1 in Spalte 2 vorhanden sind und diese dann farblich kennzeichnen. Geht das irgendwie?
Danke Euch.
25.06.2009 10:48:21
Thread-ID: 1084273
2 Beiträge
2 Tabellen vergleichen, komplette Zeile kopieren
Marc

Hallo,
ich bin mit meinem Latein am Ende und es geht irgendwie nicht wie ich es mir vorstelle.
Folgendes Problem: Ich möchte gerne 2 Kriterien in 2 verschiedenen Workbooks miteinander vergleichen.
In diesem Fall handelt es sich um die Teilenummer und den Prozessvorgang.
Wenn...
07.07.2009 20:22:08
Thread-ID: 1087035
6 Beiträge
Doppelte Werte + unterschiedliche Schreibweisen
Marcel

Hallo,
gibt es eine Möglichkeit, neben den bekannten Funktionen wie
- Bedingte Formatierung (ZÄHLENWENN($A$1;$A$18;A1)Größer1)
- WENN(VERGLEICH(A4;A:A;0)=ZEILE();"";"Doppelt")
sich doppelte Einträge eder Zellen einer Spalte Anzeigen zu lassen (10.000 Datensätze), wenn unterschie...
22.07.2009 13:47:42
Thread-ID: 1090530
7 Beiträge
2 Tabellen vergleichen
Hubert

Hallo Spezialisten,
ich, blutiger Laie was VBA angeht muss in zwei Tabellen die Daten miteinander vergleichen und bei Übereinstimmung in zwei Feldern die entsprechende Zeile farblich markieren.
Ächz, Stöhn.... da weiß ich echt alleine nicht weiter.
So sieht die Basis aus:
Tabell...
05.08.2009 10:33:06
Thread-ID: 1093683
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
4
2
5
12
1
5
6
4
1
1
15
4
3
3
1
6
7
11
5
7
3
6
6