Excel-Spalten Vergleich: Schwieriges Problem

Über folgende Formel habe ich erreicht, dass Werte die neben einer Zelle mit Kundennummern aus der Tabelle "Abgleich Aktionen" stehen, in eine zweite Tabelle mit allen Kundennummern übernommen werden.
=WENN(ISTFEHLER(SVERWEIS(H5;'Abgleich Aktionen'!$A$2:$D$4000;4;0));"";SVERWEIS(H5;'Abgleich Aktionen'!$A$2:$D$4000;4;0))
Solange in der Tabelle "Abgleich Aktionen" die Kundennummer nur einmal vorkommt, funtioniert das alles ganz gut.
Problem:
In der Tabelle "Abgleich Aktionen" kommen Kundennummer je nach Produkt mehrfach vor.
ZB:
KD15 Bestellung Milch 01.07.
KD15 Bestellung Brot 05.07.
KD07 Bestellung Mehl 05.07
KD07 Bestellung Brot 05.07
KD07 Bestellung Lieferung 08.07
Der Wert für Kunde15 zb "Besellung Milch 01.07" ist der einzige Wert, der in die Tabelle mit der kompletten Liste der Kundennummern übernommen wird.
Ich will erreichen, dass alle Werte, die neben einem Kunden in der Tabelle "Abgleich Aktionen" stehen, mit Strichpunkt getrennt in der zweiten Tabelle aufgelistet werden.
Also es soll wie folgt aussehen:
Zweite Tabellt mit allen Kundennummern:
KD05
KD06
KD07 Bestellung Mehl 05.07 ; Bestellung Brot 05.07 ; Bestellung Lieferung 08.07
KD08
KD09
KD10

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marco
über eine Hilfsspalte in der Tabelle Abgleich Aktionen und Sverweis in den Kundennummern:

Tabelle1

	A	B	C
1	Auflistung der Bestellungen		Hilfsspalte
2	KD09	Bestellung Milch 01.07.	Bestellung Milch 01.07.; Bestellung Brot 05.07.;
3	KD10	Bestellung Brot 05.07.	Bestellung Brot 05.07.;
4	KD07	Bestellung Mehl 05.07	Bestellung Mehl 05.07; Bestellung Brot 05.07; Bestellung Lieferung 08.07
5	KD07	Bestellung Brot 05.07	Bestellung Brot 05.07; Bestellung Lieferung 08.07
6	KD07	Bestellung Lieferung 08.07	Bestellung Lieferung 08.07
7	KD09	Bestellung Brot 05.07.	Bestellung Brot 05.07.;

Formeln der Tabelle

C2 : =WENN(ISTFEHLER(SVERWEIS(A2;A3:C$101;3;0));B2;B2&"; "&SVERWEIS(A2;A3:C$101;3;0))

Tabelle1

	A	B
11	alle Kunden-Nrn.
12	KD06
13	KD07	Bestellung Mehl 05.07; Bestellung Brot 05.07; Bestellung Lieferung 08.07
14	KD08
15	KD09	Bestellung Milch 01.07.; Bestellung Brot 05.07.;
16	KD10	Bestellung Brot 05.07.;
17	KD11

Formeln der Tabelle

B12 : =WENN(ISTFEHLER(SVERWEIS(A12;A$2:C$7;3;0));"";SVERWEIS(A12;A$2:C$7;3;0))
B13 : =WENN(ISTFEHLER(SVERWEIS(A13;A$2:C$7;3;0));"";SVERWEIS(A13;A$2:C$7;3;0))
B14 : =WENN(ISTFEHLER(SVERWEIS(A14;A$2:C$7;3;0));"";SVERWEIS(A14;A$2:C$7;3;0))
B15 : =WENN(ISTFEHLER(SVERWEIS(A15;A$2:C$7;3;0));"";SVERWEIS(A15;A$2:C$7;3;0))
B16 : =WENN(ISTFEHLER(SVERWEIS(A16;A$2:C$7;3;0));"";SVERWEIS(A16;A$2:C$7;3;0))
B17 : =WENN(ISTFEHLER(SVERWEIS(A17;A$2:C$7;3;0));"";SVERWEIS(A17;A$2:C$7;3;0))

Günther

Sub Makro3() ThisWorkbook.Activate Sheets(1).Select Columns("A:A").Select Selection.Copy Sheets(2).Select Range("A1").Select ActiveSheet.Paste Range("A1:A10000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ "B1"), Unique:=True Selection.Delete Shift:=xlToLeft Sheets(1).Select Range("A2").Select Spalte = 256 While ActiveCell.Value <> "" Kunde = ActiveCell.Value Bestellung = ActiveCell.Offset(0, 1).Value Sheets(2).Select Columns("A:A").Select Selection.Find(What:=Kunde, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Select Cells(ActiveCell.Row, Spalte).Select Selection.End(xlToLeft).Select ActiveCell.Offset(0, 1).Value = Bestellung Sheets(1).Select ActiveCell.Offset(1, 0).Select Wend End Sub

Beliebteste Forumthreads (12 Monate)

Excel-Spalten Vergleich: Schwieriges Problem

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread