Office: Zwei Listen vergleichen und automatisch ergänzen

Servus,

Ich möchte gernen per VBA umsetzen, dass ich zwei Listen miteinander vergleiche in dene ungefähr das selbe drin steht.
Es handelt sich um Artikelnr und Preis. In der einen Liste fehlen aber noch Artikelnummern. Nun soll verglichen werden welche schon da sind und die Fehlenden müssten ans Ende angefügt werden.
Kann mir dabei wer helfen?

Viele Grüße
jnicoh

:)

 

Hallo!
Du könntest in Liste1 per Zählenwenn in einer Hilfsspalte prüfen, ob die ArtNr in Liste2 vorkommt.
Dann die Hilfsspalte nach 0 filtern und den sichtbaren Bereich ab Zeile 2 im Block unter die letzte Zeile der ArtNr in Liste2 kopieren.
Danach kann der Filter aufgehoben und die HS gelöscht werden.
(dieser Ablauf kann per Makro abgebildet werden und ist schneller als eine Schleife)

Tabelle1

	A	B	C	D
1	ArtNrListe1	HS		ArtNrListe2
2	1	1		1
3	2	0		3
4	3	1		5
5	4	0		7
6	5	1		9
7	6	0		11
8	7	1		13
9	8	0		15
10	9	1		17
11	10	0		19
12	11	1		21
13	12	0		23
14	13	1		25
15	14	0		27
16	15	1		29
17	16	0		31
18	17	1		33
19	18	0		35
20	19	1		37
21	20	0		39

Zelle	Formel
B2	=ZÄHLENWENN(D:D;A2)

Excel Tabellen im Web darstellen >>

 

Hey Danke schonmal *wink.gif*

habe mal ne Beispieldatei angehangen.

VG

 

Hi,

so wie es Ralf schon beschrieben hat...

p.s eine Nummer gibt es doppelt in deiner "vollständigen Liste"

 

Hi!
(weil ich schon dran gearbeitet habe ...)
Leicht machst Du es mir ja nicht ...
In der vollst. Liste habe ich " *" entfernt, wobei das Leerzeichen nicht Zeichen 32, sondern das geschützte Leerzeichen (160) war. *rolleyes.gif*
In der unvollst. alles ab Zeile 44.
Ich nehme an, dass dies die Ausgangslage ist, nach der Du arbeiten willst.
Code:

Datei im Anhang, Alt+F8, "FillUp" starten.

Gruß Ralf