tabel omzetten naar lijst in vba

[Barbara24]

Beste allemaal,

Ik heb een lijst met deelnemers/medewerkers met daarachter scores voor verschillende testen.
Dit wil ik via vba in een lijst onder elkaar krijgen.
Wie kan mij daarbij helpen.
Ik heb een bestandje toegevoegd met in het tabblad "data" de oorspronkelijke lijst en in het tabblad "uitkomst" hoe het eruit zou moeten komen zien.
Het aantal kolommen en het aantal rijen kan variabel zijn, dus ergens zou vba moeten selecteren tot aan de laatst gevulde cel.

Alvast bedankt
Barbara
Bekijk bijlage voorbeeld.xlsx

 

[snb]

Sub M_snb()
   sn = [data!A1].CurrentRegion
   ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1), 2)
   
   For j = 0 To UBound(sp) - 1
     x = j \ (UBound(sn, 2) - 1) + 2
     y = j Mod (UBound(sn, 2) - 1) + 2
     sp(j, 0) = sn(x, 1)
     sp(j, 1) = sn(1, y)
     sp(j, 2) = sn(x, y)
   Next
   
   [uitkomst!A1].Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

 

[Barbara24]

super
Dankjewel