Office: (Office 2016) Spaltenüberschriften mit Werten kombinieren (dynamisch)

Hi,
vielleicht kann mir jmd helfen. Ich versuche "Spaltenüberschriften mit Werten" zu kombinieren. Aus meiner Sicht ist die Schwierigkeit dabei, dass ich n-Spalten haben kann und jeweils m-Einträge darunter (ich bekomme öfters neuer Versionen) (siehe Bild).
Gerne würde ich das möglichst dynamisch und wenn es irgendwie geht auch ohne VBA hinbekommen. Vermutlich geht das irgendwie ganz einfach.
Hintergrund ist, dass ich die aufbereiteten Daten gerne in eine Datenbank überführen möchte.



Danke!

 

Hallo,

folgender Link sollte dein Problem lösen:
Kreuztabelle auflösen, d.h. in Datensatzform darstellen (herber.de)

 

Hi,

vielen Dank für die schnelle Antwort. Das sieht schon ganz gut aus, ich versuche es noch darauf aufbauend ein bisschen dynamischer hinzukriegen.

 

Hier für neues Excel (hast Du aber nicht) mit nur einem Argument A1:C5:

=LET(x;A1:C5;
y;WEGLASSEN(x;1);
z;HSTAPELN(ZUSPALTE(y;;1);ZUSPALTE(INDEX(INDEX(x;1;);SEQUENZ(SPALTEN(y)*ZEILEN(y);;1;1/ZEILEN(y)))));
FILTER(z;INDEX(z;;1)<>0))

 

Hallo
Oder als Alternative mit PQ.

 

Ich habe mir die Datei von PIVPQ nicht angesehen.
Nehme aber an, dass hier folgendes zu Grunde liegt:
• Daten → aus Tabelle
• Transformieren → Spalten entpivotieren
• Spalte B nach links verschieben

Folgender M-Code wird automatisch generiert:

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    #"Entpivotierte Spalten" = Table.UnpivotOtherColumns(Quelle, {}, "Attribut", "Wert"),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Entpivotierte Spalten",{"Wert", "Attribut"})
in
    #"Neu angeordnete Spalten"

Gruß Ralf

 

Da haben wir ja den direkten Vergleich dieser Standardkonstellation mit zwei Lösungsalternativen.

 

Wow, danke. Es wird die PowerQuery-Lösung.
"Entpivotieren" ist also das Zauberwort. Vielen Dank für eure Hilfe. Und wenn ich mal das neue Excel habe, probiere auch mal die Lösung von lupo1 aus.

 

Geht hier kostenlos (Du brauchst nur ein hotmail/outlook/live): office.live.com/start/Excel.aspx