Tabel omzetten naar lijst

[stijnkuijpers]

Goedemorgen,

ik zit met een uitdaginkje in Excel:

ik heb een tabel die ik wil omzetten naar een lijst. Is dat mogelijk?

De tabel bestaat uit LABEL_A (88) horizontaal, LABEL_B (177) verticaal en WAARDE in de tabel zelf.
De lijst moet worden: LABEL_B in kolom1, LABEL_A in kolom2, WAARDE in kolom3, in totaal 88 * 177 = 15576 rijen.

Is zoiets mogelijk?

Groeten,
Stijn

 

[Wigi]

Alles met formules gedaan

Zie bijlage, zie blad 2 voor de formules.

Wigi

 

[Wigi]

Of met VBA-code (toepasselijk op zelfde voorbeeldfile):

Sub tabellijst()

    Dim r1 As Range
    Dim r2 As Range
    Dim lTeller As Long
    
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    
    For Each r1 In Range("kolommen")
        For Each r2 In Range("rijen")
        
            lTeller = lTeller + 1
            
            With Sheets("Sheet2")
                
                .Cells(lTeller, 10 + 1).Value = r1.Value
                .Cells(lTeller, 10 + 2).Value = r2.Value
                .Cells(lTeller, 10 + 3).Value = Application.Index(Range("data"), r2.Row - 1, r1.Column - 1).Value
                
            End With
            
        Next
    Next
    
    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With

End Sub

Wigi

 

[stijnkuijpers]

Super bedankt!

Dit is precies wat ik nodig had, bedankt!