Transponeren van gegevens

[wtco]

Ik wil een lijst van postzegels met kenmerken per postzegel die per postzegel onder elkaar staan omzetten naar een lijst waarbij de gegevens per postzegel naast elkaar in kolommen staan dus per postzegel alles op 1 rij.

In bijlage een beperkt voorbeeldje maar het gaat over honderden postzegels uit mijn verzameling.

In mijn voorbeeldje is er steeds per postzegel eenzelfde aantal gegevens (zie kadertjes) maar de volgende stap is om ook dit te kunnen doen met lijsten met verschillende aantal kenmerken per postzegel dus soms met 5 kenmerken en de wolgende postzegel eronder met 8 kenmerken en de volgende met vb 3 kenmerken

Het is wel zo dat het steeds start met de prijs (getal) op een rij gevolgd door het "ARTIKELNUMMER :" op de volgende rij

Weten jullie raad ?

 

[AlexCEL]

Het kan vrij simpel als je hoofdtabel inderdaad telkens dezelfde opmaak heeft. Zie bijlage.

 

[snb]

Zo gaat dat:

Sub M_snb()
  sn = Range("A1:A40")
  
  For j = 1 To UBound(sn)
    If Left(LCase(sn(j, 1)), 13) = "artikelnummer" Then sn(j + 1, 1) = sn(j - 1, 1)
  Next
  sp = Split(Join(Application.Transpose(sn), vbLf), "ARTIKELNUMMER")
  
  For j = 1 To UBound(sp)
     st = Split(sp(j), vbLf)
     Cells(10 + j, 4).Resize(, UBound(st)) = st
  Next
End Sub