Transpose bei großen Datenmengen

[JuliMzE]

Hallo zusammen,

Ich habe aus unserer Warenwirtschaft Infos zu Beständen bekommen. So sind Artikel und Farbe in den Zeilen, die Größen in den Spalten ausgegeben, sodass eine Art Matrix entsteht.     
Nun brauche ich aber an Stelle der Matrix aber eine Liste, sprich die Größen sollen ebenfalls je Artikel und je Farbe in Zeilen aufgeführt werden.     



Habt Ihr eine Idee, wie ich das ohne unendlich viel Copy&Paste hinbekomme? 

Ich bin ratlos und wäre um Hilfe und Denkanstöße sehr dankbar!


Lieben Gruß,
Juli

[Hydronaut]

Hallo Juli

Das ist kein Transponieren. Stichwort "entpivotieren mit Power Query".

[Gast 123]

Hallo Juli

anbei eine Beispieldatei mit deinen Daten.  Kopiere bitte mal die Daten deiner Originaldatei ins Beispiel und Teste das Ergebnis.
Würde mich freuen wenn meine Idee brauchbar ist.

mfg  Gast 123

[snb]

Code:

Sub M_snb()
   sn = Tabelle1.Cells(1).CurrentRegion
   ReDim sp((UBound(sn) - 2) * (UBound(sn, 2) - 2), 3)
   
   For j = 0 To UBound(sp) - 1
    y = j \ (UBound(sn, 2) - 2) + 3
    x = j Mod (UBound(sn, 2) - 2) + 3
     sp(j, 0) = sn(y, 1)
     sp(j, 1) = sn(y, 2)
     sp(j, 2) = sn(2, x)
     sp(j, 3) = sn(y, x)
   Next
   
   Tabelle1.Cells(1, 16).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

[JuliMzE]

Meine Güte, das ist ja nett!

Vielen herzlichen Dank!