Combinatie tabel

[Abyss]

Hallo,

Een klein probleempje.:shocked:
Ik heb een combinatie tabel waar bij het getal op de verticale lijn met het getal op de horizontale lijn kruist.
Van een aantal nummer zijn er meerder combinaties.


Nu wil ik graag dat Excel in een keer alle combinaties onder de tabel weer geeft.

Zoals ik heb aangegeven in rood onder de tabel
Wat ik wel graag wil is dat er op de verticale kolom wordt gesorteerd



Alvast bedankt :thumb::thumb:

 

[Abyss]

Oops tabel vergeten , bijdeze als bijlage

 

[snb]

Het lijkt zo'n zinloze exercitie als alle kolommen hetzelfde nummer bevatten.

 

[Abyss]

Klopt helemaal,

Ik heb het inmiddels aangepast.
zo beter??



Abyss

 

[snb]

Zeker:

Sub tst()
  For Each cl In [c5:R26].SpecialCells(xlCellTypeConstants)
    Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 2) = Split(Cells(cl.Row, 2) & "|" & Cells(4, cl.Column), "|")
  Next
End Sub

 

[Abyss]

Danku opgelost:thumb::thumb: