Matrix untereinander auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

also das ist der Abfragetext, den Powerquery selbst erstellt hat.
Quelle = Inhalt von Tabelle 1 - das wir derstellt wenndu in den Datenbereich klickst und eine Abfrage aus Tabelle erstellst
Geänderter Typ mach t PQ selbst
NAme und Vorname markieren und rechter Mausklick - andere Spalten entpivotieren
gefilterte Zeilen - mit Filter die leeren Zellen aus Wertespalte raus
Neu angeordnete Spalten - einfach mit der Maus die Wertespalte nach vorn gezogen
Die Attributspalte entfernt - mit rechte Maus
im Menü - Schliessen und laden in.. --Tabelle auswählen
PQeditor schliessen und speichern


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Name", type text}, {"Vorname", type text}, {"1", Int64.Type}, {"2", type any}, {"3", Int64.Type}, {"4", Int64.Type}, {"5", Int64.Type}, {"6", type any}, {"7", type any}, {"8", Int64.Type}, {"9", Int64.Type}, {"10", Int64.Type}, {"11", Int64.Type}, {"12", Int64.Type}, {"13", Int64.Type}}),
#"Entpivotierte andere Spalten" = Table.UnpivotOtherColumns(#"Geänderter Typ", {"Name", "Vorname"}, "Attribut", "Wert"),
#"Gefilterte Zeilen" = Table.SelectRows(#"Entpivotierte andere Spalten", each ([Wert]  "")),
#"Neu angeordnete Spalten" = Table.ReorderColumns(#"Gefilterte Zeilen",{"Wert", "Name", "Vorname", "Attribut"}),
#"Entfernte Spalten" = Table.RemoveColumns(#"Neu angeordnete Spalten",{"Attribut"})
in
#"Entfernte Spalten"

Sub Umformen() Dim arrDaten Dim arrErg, arr Dim z As Long, s As Long, x As Long ReDim arrErg(1 To 1) arrDaten = Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Value For z = 2 To UBound(arrDaten, 1) For s = 3 To UBound(arrDaten, 2) If arrDaten(z, s) "" Then x = x + 1 ReDim Preserve arrErg(1 To x) arrErg(x) = Array(arrDaten(z, s), arrDaten(z, 1), arrDaten(z, 2)) End If Next Next arr = Application.Transpose(arrErg) arr = Application.Transpose(arr) With Sheets("Wunschergebnis") .Cells(1, 1).CurrentRegion.Offset(1, 0).ClearContents .Cells(2, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr End With End Sub

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle1 (2)'
	A	B
1	Name	Wert
2	Klopfer,Klaus	5512345
3	Würstel,Werner	5512345
4	Twingo,Bingo	5512345
5	Twingo,Bingo	5512456
6	Twingo,Bingo	5512567
7	Reich,Max	5512456
8	Schmidt,Felix	5512456
9	Meier,Hans	5512456
10	Keiner,Klaus	5523456
11	Groß,Kid	5523456
12	Groß,Kid	5556789
13	Grau,Kai	5523456
14	Ulrich,Sven	5534567
15	Meier,Peter	5534567

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Matrix untereinander auflisten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread