Lijst van horizontaal naar vertikaal

[Lomyth10142]

Ik ben bezig met een inventory list met meer dan 30.000 artikelen.
Deze lijst is opgebouwd als in het voorbeeld kolom A tm C
Vanwege een overgang naar een ander computersysteem moet deze lijst met een aantal vaste kolommen naar een horizontale layout zoals in het voorbeeld kolom E t/mL

Probleem is dat er per lotnummer niet altijd dezelfde hoeveelheid ingevulde gegevens beschikbaar zijn. Was dit wel zo dan ik het kopiëren en transponeren.
Wel wordt bijvoorbeeld de kleur altijd vooraf gegaan door het woord 'kleur;" Deze woorden heb ik in het voorbeeld in de kolomkop in G1 t/m L1 gezet.

Ik zoek een formule oid waarmee ik dit kan omzetten

Alvast bedankt voor een eventuele reactie

 

[WHER]

Zie bijlage voor mogelijke aanpak:

 

[HSV]

Voor 30.000 artikelen lijkt me een macrootje wel wat: resultaat op blad2.

@WHER, als LotNR = 135, maar merken zijn verschillend wordt daar helaas geen rekening mee gehouden.

 

[Lomyth10142]

Zowel WHER als HSV hartelijk dank voor jullie oplossing.
SUPER !!!

 

[snb]

Jammer van die inconsistente invoer in kolom C

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  sp = Sheet1.Range("E1:L1")
  sr = Sheet1.Range("E1:L1").Offset(, 100)
  
  With CreateObject("scripting.dictionary")
     .Item(1) = sp
     For j = 2 To UBound(sn)
       st = sr
       If .exists(sn(j, 1) & sn(j, 2)) Then st = .Item(sn(j, 1) & sn(j, 2))
       st(1, 1) = sn(j, 1)
       st(1, 2) = sn(j, 2)
       sq = Split(Replace(sn(j, 3), ":", ";"), ";")
       st(1, Application.Match(sq(0), sp, 0)) = Trim(sq(1))
       .Item(sn(j, 1) & sn(j, 2)) = st
     Next
     
     Cells(30, 1).Resize(.Count, UBound(sp, 2)) = Application.Index(.items, 0, 0)
  End With
End Sub

 

[WHER]

30.000, daar had ik over gelezen....
Indien één lotnr verschillende merken kan hebben, moeten de formules inderdaad aangepast worden.

 

[HSV]

@WHER, is niet meer nodig volgens mij. :d

@snb, dat scheelt een stuk code, maar je maakt gebruik van bestaande gegevens die ik met mijn code zoek.
Maakt niet uit, als het een vast patroon is, is dit natuurlijk beter.