ich habe eine Tabelle bestehend aus zwei Spalten. Exemplarisch steht in der ersten Spalte eine 5-stellige Artikelnummer, in der zweiten Spalte mehrere durch Kommas getrennte Kundennummern:
A B
12345 987654,876543,765432
23456 456123,896523
34567 564789,254987,365478,235987,297364
Mit folgendem Makro teile ich die Kundennummern auf einzelne Zellen auf und lasse ein _ Tabellenblatt einfügen, in dem in Spalte A alle Kundennummern ohne Duplikate untereinander eingefügt werden:
Sub KdNr()
Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Cells.EntireColumn.AutoFit
Rows("1:1").Delete Shift:=xlUp
Range("B1").Select
Dim c As Range, oMat As Object
Set oMat = CreateObject("scripting.dictionary")
For Each c In Range("B:Z").SpecialCells(xlCellTypeConstants)
If Not oMat.exists(c.Value) Then oMat.Add c.Value, ""
Next c
ActiveWorkbook.Worksheets.Add.Name = "Tabelle1"
Sheets("Tabelle1").Cells(1, 1).Resize(oMat.Count) = Application.Transpose(oMat.keys)
Columns("B:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Rows("1:1").Insert Shift:=xlDown
End Sub
Wie muss das Makro verändert werden, um die jeweilige Artikelnummer aus Spalte A mit in das neue Tabellenblatt zu übertragen?
Im Zielbild soll also in dem neu angelegten Tabellenblatt in Spalte A die Artikelnummer stehen und in Spalte B eine Kundennummer:
A B
12345 987654
12345 876543
12345 765432
23456 456123
23456 896523
usw.
Hierbei sollen die Kombinationen aus Spalte A und B jeweils unique sein, also keine Dopplungen aufweisen.
Ich bin für eure Hilfe sehr dankbar.
Gruß
Axel