SAP naar Excel kopiëren

[maxxxie]

Hallo,

Ik wil graag een lijst kopiëren die er als volgt uit ziet na exporteren naar excel:

DEUR-16 1001
DEUR-16 1002
DEUR-16 1003
DEUR-17 2001
DEUR-17 2002
DEUR-18 3001

etc.

Nu wil ik het eigenlijk naar 2 tabellen hebben:

Tabel 1 Tabel 2

DEUR-16 1001 1002 1003
DEUR-17 2001 2002
DEUR-18 3001

Mijn vraag is; is dit mogelijk op deze manier? Ik heb al enkele manieren geprobeerd, maar ik kom niet uit bij het gewenste resultaat..

Gr,
Max

 

[AlexCEL]

Zie voorbeeld.

Bekijk bijlage sorteren (AC).xlsx

 

[Timshel]

Op basis van het voorbeeld van AlexCel kun je ook deze macro gebruiken:

Sub tsh()
    Dim Br
    Dim i As Long
    
    Br = Cells(2, 1).CurrentRegion
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Br)
            .Item(Br(i, 1)) = .Item(Br(i, 1)) & Br(i, 2) & "|"
        Next
        Cells(23, 6).Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
        Cells(23, 7).Resize(.Count).TextToColumns , , , , , , , , 1, "|"
    End With
End Sub