Excellisten zusammenführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Siri,
... könnte z.B. wie untenstehend aussehen. Dabei hab ich bewusst eine Sortierung nach KdNr. vorgenommen. Eine KdNr. ist (normalerweise) eindeutig, Namen nicht, wie Dein Name in B4 zeigt.
Formel L3 nach unten ziehend kopieren. Danach Formel J3 auch nach unten und zusätzlich nach Spalte K.
Formel M3 ziehend nach rechts bis Q3 und gemeinsam nach unten kopieren. Analog auch mit Formel R3.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
1	Adressnr	Name	Kdnr.	Stückzahl	Gewicht	Umsatz	Kosten	Profit					2019					2020
2	5623	Name1	271163	4	154,2	503,9	366,4	137,5		Adressnr	Name	Kdnr.	Stückzahl	Gewicht	Umsatz	Kosten	Profit	Stückzahl	Gewicht	Umsatz	Kosten	Profit
3	6595	Name2	12977	14	221,3	140,1	126,7	13,4		3574	Name8	713						5	131	125,1	89,4	35,7
4	5753	Name2	1599	4	113,8	293,4	188,6	104,8		5753	Name2	1599	4	113,8	293,4	188,6	104,8	6	808,8	110,8	53,1	57,7
5	2158	Name4	860294	1	78	417,4	321,1	96,3		3654	Name5	4974	2	340	314,5	225,2	89,3
6	3654	Name5	4974	2	340	314,5	225,2	89,3		6595	Name2	12977	14	221,3	140,1	126,7	13,4
7										9851	Name 7	65662						3	310	365,2	284,5	80,7
8	Adressnr	Name	Kdnr.	Stückzahl	Gewicht	Umsatz	Kosten	Profit		7458	Name6	84257						4	161,9	912,7	736,1	176,6
9	5623	Name1	271163	41	409	321,5	241,9	79,6		5623	Name1	271163	4	154,2	503,9	366,4	137,5	41	409	321,5	241,9	79,6
10	7458	Name6	84257	4	161,9	912,7	736,1	176,6		2158	Name4	860294	1	78	417,4	321,1	96,3
11	9851	Name 7	65662	3	310	365,2	284,5	80,7
12	3574	Name8	713	5	131	125,1	89,4	35,7
13	5753	Name3	1599	6	808,8	110,8	53,1	57,7
14

Zelle	Formel
J3	=WENN($L3="";"";INDEX(A:A;VERGLEICH($L3;$C:$C;0)))
L3	=WENNFEHLER(AGGREGAT(15;6;C$2:C$600/(C$2:C$600&gt0)/(ZÄHLENWENN(L$1:L2;C$2:C$600)=0);1);"")
M3	=WENNFEHLER(INDEX(D:D;AGGREGAT(15;6;ZEILE(A$2:A$600)/($C$2:$C$600=$L3)/(ZEILE(A$2:A$600) &lt ZEILE(A$8));1))/($L3>"");"")
R3	=WENNFEHLER(INDEX(D:D;AGGREGAT(15;6;ZEILE(A$2:A$600)/($C$2:$C$600=$L3)/(ZEILE(A$2:A$600) &gt ZEILE(A$8));1))/($L3>"");"")

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

Gruß Werner
.. , - ...

Sub Verschmelzen() Dim B1 As Range, B2 As Range, E As Range Dim B2r As Range, Er As Range Dim i As Long, b As Range Set B1 = Sheets("Tabelle1").Range("A1:H6") 'Anpassen: Tabelle 1 Set B2 = Sheets("Tabelle1").Range("A8:H13") 'Anpassen: Tabelle 2 'Anpassen: erste Zelle Ergebnistabelle Set E = Sheets("Tabelle1").Range("J2") Set E = E.Resize(B1.Rows.Count, B1.Columns.Count) Set Er = E(1).Offset(, E.Columns.Count).Resize(, B2.Columns.Count - 3) Set B2r = B2(1).Offset(, 3).Resize(, B2.Columns.Count - 3) E = B1.Value Er = B2r.Value For i = 2 To B2.Rows.Count Set b = E.Columns(1).Find(B2(i, 1), LookIn:=xlValues, lookat:=xlWhole) If b Is Nothing Then Set E = E.Resize(E.Rows.Count + 1) E(E.Rows.Count, 1).Resize(, 3) = B2(1).Offset(i - 1).Resize(, 3).Value Set b = E(E.Rows.Count, 1) End If Er.Offset(b.Row - Er.Row) = B2r.Offset(i - 1).Value Next i End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread