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.
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?
Registriert seit: 10.04.2014
Version(en): Office 2019
(23.03.2019, 15:08)WillWissen schrieb: Hallo Marie,
... "PowerQuery" ... dann () deine Tabelle () entpivotieren.
Passt... Danke Günter
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Im Wort FEHLER steckt auch das Wort HELFER!
FEHLER helfen dir.
Nimm deine FEHLER an und lerne aus ihnen.
Wenn du es zulässt, dann werden sie dich stärken
Im Wort
Registriert seit: 29.09.2015
Version(en): 2030,5
23.03.2019, 19:50
(Dieser Beitrag wurde zuletzt bearbeitet: 23.03.2019, 20: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
