Transponieren von Daten und löschen von Duplikaten

Hi Team,
folgende Situation:
Ich habe zwei Spalten. Die erste Spalte enthält Accountnummern, die zweite enthält Rechnungsnummern.
In der ersten Spalte enthält Duplikate, die zweite Spalte nur Unikate.
Es ist also so, das ein Account mehrere Rechnungsnummern aufweist.
Ich möchte nun über ein Makro steuern, dass auf einem Arbeitsblatt alle Accountnummern ohne Dublikate vertikal angezeigt werden und die dazugehörenden Rechnungsnummern horizontal.
Beispiel wie mir die Daten vorliegen:
Account Document Number
1000045210 7600192426
1000046026 7600192750
1000046483 7600191990
1000046483 7600191991
1000046483 7600191992
1000047876 7600192846
1000047876 7600192847
1000047876 7600192848
1000047876 7600192526
1000047876 7600192849
1000047876 7600192844
1000047876 7600192525
1000047876 7600192845
1000048659 7600192927
1000112817 7600192431
1000182612 7600192570
1000182972 7600192347
1000190141 7600192360
1000190141 7600192076
1000190141 7600192627
1000200532 7600192085
1000200532 7600192717
Beispiel wie ich die Daten brauche:
Account Document Number Document Number Document Number Document Number Document Number Document Number Document Number Document Number
1000045210 7600192426
1000046026 7600192750
1000046483 7600191990
1000046483 7600191991 7600191992
1000047876 7600192846 7600192847 7600192848 7600192526 7600192849 7600192844 7600192525 7600192845
1000048659 7600192927
1000112817 7600192431
1000182612 7600192570
1000182972 7600192347
1000190141 7600192360 7600192076 7600192627
1000200532 7600192085 7600192717
Für jegliche Hilfe wäre ich dankbar.
Cheers
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
... z.B. nachfolgende Formel D2 und E2 nach unten und E2 zusätzlich nach rechts ziehend kopieren.

Arbeitsblatt mit dem Namen 'Tabelle5'
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Account Document	Number		Account Document		Number
2	1000045210	7600192426		1000045210	7600192426
3	1000046026	7600192750		1000046026	7600192750
4	1000046483	7600191990		1000046483	7600191990	7600191991	7600191992
5	1000046483	7600191991		1000047876	7600192525	7600192526	7600192844	7600192845	7600192846	7600192847	7600192848	7600192849
6	1000046483	7600191992		1000048659	7600192927
7	1000047876	7600192846		1000112817	7600192431
8	1000047876	7600192847		1000182612	7600192570
9	1000047876	7600192848		1000182972	7600192347
10	1000047876	7600192526		1000190141	7600192076	7600192360	7600192627
11	1000047876	7600192849		1000200532	7600192085	7600192717
12	1000047876	7600192844
13	1000047876	7600192525
14	1000047876	7600192845
15	1000048659	7600192927
16	1000112817	7600192431
17	1000182612	7600192570
18	1000182972	7600192347
19	1000190141	7600192360
20	1000190141	7600192076
21	1000190141	7600192627
22	1000200532	7600192085
23	1000200532	7600192717
24

Zelle	Formel
D2	=WENNFEHLER(AGGREGAT(15;6;A$2:A$99/(A$2:A$99&gt0)/(ZÄHLENWENN(D$1:D1;A$2:A$99)=0);1);"")
E2	=WENNFEHLER(AGGREGAT(15;6;$B$2:$B$99/($A$2:$A$99=$D2);SPALTE(A1));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Transponieren von Daten und löschen von Duplikaten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread