lijst maken van gegeven in rijen en kolommen

[5t3f4n]

Hallo,

Ik wil graag labels printen voor diverse planken.
In de kolom A staat hoeveel planken ik nodig heb. Ik kolom B staat de naam van de plank.
Als ik een plank meer dan eens nodig heb, wil ik hiervoor ook meerdere labels hebben.

Ik heb al een begin gemaakt, zie bijlage:Bekijk bijlage lijst met labels.xlsx

In de gele tabel staat de naam van de plank met het huidige en totale aantal (Plank A 1/3, Plank A 2/3, enz)
De volgende plank (Plank B) staat op de volgende regel.

Nu wil ik een dynamische lijst maken met alle namen. De lege velden moeten niet in de lijst komen te staan.

Kan iemand mij helpen? Alvast bedankt!

 

[VenA]

iets in deze vorm?

Sub VenA()
ar = Range("C5:G10")
For j = 1 To UBound(ar)
    For jj = 1 To UBound(ar, 2)
     If ar(j, jj) <> "" Then
        c00 = c00 & ar(j, jj) & "|"
        t = t + 1
     End If
     Next jj
Next j
Cells(2, 11).Resize(t, 1) = Application.Transpose(Split(c00, "|"))
End Sub

 

[JeanPaul28]

Zonder de gele cellen

 

[HSV]

Met één lusje:

Sub hsv()
Dim rRng, sn, i, c00
rRng = Range("c5:g10")
    For i = 1 To UBound(rRng)
      sn = Join(Filter(Application.Index(rRng, i, 0), " ", True), "|") & "|"
      c00 = c00 & sn
    Next i
 Range("O2").Resize(UBound(Split(c00, "|"))) = Application.Transpose(Split(c00, "|"))
End Sub

 

[Timshel]

Een oplossing zonder VBA, edoch mét hulpkolommen.

 

[5t3f4n]

Bedankt voor de oplossingen, geniaal!!