Pivot Panel Data

[lawrence_helle]

Moin liebe Excel-Freunde

Habe folgendes Problem: Haben Panel Daten über 20 Jahre, die sehen momentan so aus:

Land 1990 1991 1992 1993
DE    xx     xx     xx     xx
FR    xx     xx     xx     xx 

Jetzt will ich die Achsen allerdings kehren, dass es so dargestellt wird:

Land Jahr Pop
DE   1990 xx
DE   1991 xx
DE   1992 xx
FR   1990 xx
FR   1991 xx

Bin momentan in ner Pivottable am herumtüfteln, klappt aber noch nicht so ganz. Habt ihr mir da Tipps?

Liebe Grüsse
Lorenz

[WillWissen]

Hi,

gelöscht - falscher Rat

[marose67]

Hallo Günter,
Du meinst bestimmt MTRANS(), oder?

Gruß
Marcus

[Fennek]

Hallo,

am einfachsten dürfte es mit PowerQuery und der Funktion "un-pivot" gehen.

mfg

[WillWissen]

Hi Marcus,

stimmt - Tippfehler

@Fennek

hatte ich jetzt nicht geraten, weil die Versionsangabe äußerst präzise "excel" heißt.

Edit: Rat MTRANS() gelöscht - nicht zielführend.

[marose67]

Hallo ,
@Günter,
kein Problem.

all:
da ich nicht weiß mit welcher Excel Version gearbeitet wird habe ich das Beispiel mit Excel 365 erstellt. Wenn es sich um eine andere Excel Version handelt muss die Formel mit Strg - Shift - Enter beendet werden.

Tabelle1

	A	B	C
1	Land	2010	2011
2	DE	xx
3	Fr		xx
4
5
6	Land	DE	Fr
7	2010	xx	0
8	2011	0	xx
9	2012	xx	xx

Formeln der Tabelle

Zelle Formel A6 =MTRANS(A1:D3)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß
Marcus

[lawrence_helle]

Liebe Marose67 und weitere Tipps-GeberInnen

Danke für die Hilfe. Mit der MTRANS Formel haben wir schonmal die Jahre als Y-Achse.
Die Länder will ich aber AUCH auf der Y-Achse und nicht ausgetauscht mit den Jahreszahlen als X-Achse.

Also so was (die hab ich jetzt manuell zusammengestellt).
LG Lorenz

[marose67]

Hallo,

ich lehne mich jetzt mal ganz weit aus dem Fenster raus ... ich denke, dass man dann nur noch auf die Makro Junkies setzen kann. Am einfachsten wäre das ganze mit kopieren des Bereiches - Einfügen - Transformieren gewesen. Dass fällt aber auch aus, so wie Du geschrieben hast.

Tut mir leid, dass ich Dir nicht mehr weiter helfen kann.

Gruß
Marcus

[snb]

In VBA

entpivotisieren:

PHP-Code:

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