Matrix auslesen

[Momomarie27]

Hallo alle zusammen,

bräuchte ganz dringend Hilfe bei folgendem Problem:

Ich habe mittels vieler Bezüge Daten in folgender Form erstellt

[
Bild bitte so als Datei hochladen: Klick mich!
]



 Nur brauche ich eine Form folgender Art

[
Bild bitte so als Datei hochladen: Klick mich!
]


Ist das möglich? Und wenn ja wie? Bin ein wenig verzweifelt...

Schon mal vielen lieben Dank!
 Grüße aus der Pfalz

[WillWissen]

Hallo Marie,

für deine XL-Version gibt es das kostenlose AddIn "PowerQuery" von MS. Ich empfehle dir, dieses zu installieren und dann damit deine Tabelle zu entpivotieren.

[Momomarie27]

Lieber Günter,

vielen vielen Dank für den Tipp, es ist Gold wert. :) Das Addinn kannte ich nämlich nicht. Leider ist meine Tabelle sehr groß und bis jetzt bekomme ich als Ausgabe als "ent-pivotierte Tabelle" nur eine Fehlermeldung. Sollte ich das Problem nicht gelöst bekommen, kann ich mich dann noch mal melden?

[WillWissen]

Hi,

was für eine Fehlermeldung? Wieviele Zeilen und Spalten hast du? Wie bist du vorgegangen?

[Jockel]

Hallo Marie,

... "PowerQuery" ... dann () deine Tabelle () entpivotieren.

Passt... Danke Günter

[snb]

Lösche Zeile 1 und versuche erneut.

Oder:

Code:

Sub M_snb_unpivot()
  sheet1.rows(1).delete
  sn = Sheet1.Cells(1).CurrentRegion.Rows(1)
  c00 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
  c01 = "`" & Sheet1.Name & "$`"
 
  For j =2 To UBound(sn, 2)
    With CreateObject("ADODB.Recordset")
        .Open "Select `" & sn(1, 1) & "`" & sn(1,j) & "`, """ & sn(1, j) & """ from " & c01 & " where `" sn(1,j) "'>0", c00
        Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1).CopyFromRecordset .DataSource
     End With
   Next
End Sub