Registriert seit: 23.03.2019
Version(en): 2013
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
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 23.03.2019
Version(en): 2013
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?
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
was für eine Fehlermeldung? Wieviele Zeilen und Spalten hast du? Wie bist du vorgegangen?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 10.04.2014
Version(en): Office 2019
(23.03.2019, 14:08)WillWissen schrieb: Hallo Marie,
... "PowerQuery" ... dann () deine Tabelle () entpivotieren.
Passt... Danke Günter
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Registriert seit: 29.09.2015
Version(en): 2030,5
23.03.2019, 18:50
(Dieser Beitrag wurde zuletzt bearbeitet: 23.03.2019, 19:01 von 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
