Tabelle/Matrix in Liste umwandeln ("wie Pivot - nur umgekehrt")
Peter
Ich möchte eine Tabelle in eine Liste verwandeln, also im
Prinzip den umgekehrten Weg der Pivotfunktion gehen (s.
Bsp. unten). Gibt es dafür eine einfache Lösung ?!
Vorzugsweise in Excel 97 , aber auch neuere Versionen
verfügbar. Peter
Hier ein Beispiel:
Das habe ich: "Tabelle bzw. Matrix"
A B
K 10 20
L 40 60
Das möchte ich: "Liste"
K A 10
K B 20
L A 40
L B 50
Ullrich Schwarz
entweder eine Formellösung mit einer pfiffigen Kombination aus INDEX,
ZEILE,SPALTE
oder die "Pivottabelle" markieren und folgendes Makro starten:
Sub b()
Dim AnzSpalten, AnzZeilen
Dim sh As Object, rg As Object
Dim StartZeile, z, s
Set rg = Selection
AnzSpalten = rg.Columns.Count
AnzZeilen = rg.Rows.Count
StartZeile = 1
Set sh = Sheets.Add
For z = 2 To AnzZeilen
For s = 2 To AnzSpalten
sh.Cells(StartZeile, 1) = rg.Cells(z, 1)
sh.Cells(StartZeile, 2) = rg.Cells(1, s)
sh.Cells(StartZeile, 3) = rg.Cells(z, s)
StartZeile = StartZeile + 1
Next s
Next z
End Sub
MfG Ullrich
"Peter" <pum...@vossnet.de> schrieb im Newsbeitrag
news:459f01c1bbcb$3b6eb1f0$9de62ecf@tkmsftngxs01...