Matrix/tabel omzetten naar lijst

[rickbakkenes]

Beste Excel-kenners,

Wie kan mij helpen met een formule of een macro om een tabel/matrix om te zetten naar een lijst.

Ik heb een voorbeeldje in de bijlage gezet om het een en ander wat duidelijker te maken

Ik hoop dat iemand mij kan helpen.

Alvast bedankt.

Groetjes, RickBekijk bijlage helpmij.xlsx

 

[HSV]

Zoiets ?

Sub hsv()
Dim sn, arr, i As Long, j As Long, n As Long
With Worksheets("Blad1")
sn = Intersect(.UsedRange, .Range("A:E"), .Range("2:7"))
ReDim arr(0 To Application.CountA(sn) - 1, 0 To 1)
  arr(n, 0) = "Personeel"
  arr(n, 1) = "Nummer"
  For i = 2 To UBound(sn, 1)
    For j = 2 To UBound(sn, 2)
      If Not IsEmpty(sn(i, j)) Then
        n = n + 1
        arr(n, 0) = sn(i, 1)
        arr(n, 1) = sn(1, j)
      End If
     Next j
    Next i
  .Range("A11").Resize(n + 1, 2) = arr
 End With
End Sub

 

[rickbakkenes]

Hoe kan ik wijzigen dat er niet gekeken wordt naar lege cellen (If not IsEmpty), maar kijkt naar tekst "JA" bijvoorbeeld?

 

[HSV]

Moeilijk te zien wat je bedoeld, maar ik doe een gok.

If Not ucase(sn(i, j)) = "JA" then