Gegevens uit grote tabel verzameld weergeven

[Roy 1977]

Hallo,

ik heb een draaitabel met ruim 2000 kolommen. Ik leg het even uit aan de hand van wat screenshots:

uitleg blad 1
http://prntscr.com/d8d5g5

uitleg blad 2

http://prntscr.com/d8d60a

Ik heb een voorbeeldbestand bijgevoegd en hoop dat iemand kan helpen

dank!Bekijk bijlage voorbeeld.xlsx

 

[VenA]

met een macro.

Sub VenA()
Dim j As Long, jj As Long, t As Long, ar, ar1
ar = Blad1.Cells(2, 1).CurrentRegion
ReDim ar1(UBound(ar) - 1, UBound(ar, 2) - 1) As String
For j = 2 To UBound(ar)
  ar1(j - 2, 0) = ar(j, 1)
  For jj = 2 To UBound(ar, 2)
  If ar(j, jj) <> "" Then
    t = t + 1
    ar1(j - 2, t) = ar(1, jj) & " - " & ar(j, jj)
  End If
  Next jj
  t = 0
Next j
Blad2.Cells(10, 1).Resize(UBound(ar), UBound(ar, 2)) = ar1
End Sub

 

[Roy 1977]

Helemaal geweldig, hij werkt!

Dank!