Clever-Excel-Forum

Normale Version: Transpose bei großen Datenmengen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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. [attachment=20611]
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. [attachment=20612]



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
Hallo Juli

Das ist kein Transponieren. Stichwort "entpivotieren mit Power Query".
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
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
Meine Güte, das ist ja nett!

Vielen herzlichen Dank! Blush