verschaltelte loops

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim WS1 As Worksheet, WS2 As Worksheet Dim lngZeile As Long, lngSpalte As Long, lngLetzte As Long Application.ScreenUpdating = False Set WS1 = Worksheets("Tabelle1") Set WS2 = Worksheets("Tabelle2") WS2.Cells.Delete For lngZeile = 2 To WS1.Cells(Rows.Count, 1).End(xlUp).Row For lngSpalte = 2 To WS1.Cells(1, Columns.Count).End(xlToLeft).Column If WS1.Cells(lngZeile, lngSpalte) "" Then lngLetzte = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1 WS2.Cells(lngLetzte, 1) = WS1.Cells(1, lngSpalte) WS2.Cells(lngLetzte, 2) = WS1.Cells(lngZeile, 1) WS2.Cells(lngLetzte, 3) = WS1.Cells(lngZeile, lngSpalte) End If Next lngSpalte Next lngZeile End Sub

Hallo sähe es so aus... (M-code incl. - sieht schlimmer aus, als es ist... ein paar Klicks {ein Klecks})

Arbeitsblatt mit dem Namen 'Tabelle2'
	E	F	G
1	Spalte	Zeile	Wert
2	Spalte 1	Zeile 1	55
3	Spalte 1	Zeile 2	0
4	Spalte 1	Zeile 3	123
5	Spalte 2	Zeile 1	66
6	Spalte 2	Zeile 2	30
7	Spalte 2	Zeile 3	6
8	Spalte 3	Zeile 1	0
9	Spalte 3	Zeile 2	222
10	Spalte 3	Zeile 3	8

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Spalte1", type text}, {"Spalte 1",  _
Int64.Type}, {"Spalte 2", Int64.Type}, {"Spalte 3", Int64.Type}}),
#"Transponierte Tabelle" = Table.Transpose(#"Geänderter Typ"),
#"Höher gestufte Header" = Table.PromoteHeaders(#"Transponierte Tabelle", [ _
PromoteAllScalars=true]),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Höher gestufte Header",{{"Zeile 1", Int64. _
Type}, {"Zeile 2", Int64.Type}, {"Zeile 3", Int64.Type}}),
#"Hinzugefügter Index" = Table.AddIndexColumn(#"Geänderter Typ1", "Index", 1, 1),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index", " _
Benutzerdefiniert", each "Spalte "),
#"Neu angeordnete Spalten" = Table.ReorderColumns(#"Hinzugefügte benutzerdefinierte Spalte", _
{"Zeile 1", "Zeile 2", "Zeile 3", "Benutzerdefiniert", "Index"}),
#"Zusammengeführte Spalte eingefügt" = Table.AddColumn(#"Neu angeordnete Spalten", " _
Zusammengeführt", each Text.Combine({[Benutzerdefiniert], Text.From([Index], "de-DE")}, ""), type text),
#"Entfernte Spalten" = Table.RemoveColumns(#"Zusammengeführte Spalte eingefügt",{" _
Benutzerdefiniert", "Index"}),
#"Neu angeordnete Spalten1" = Table.ReorderColumns(#"Entfernte Spalten",{"Zusammengeführt",  _
"Zeile 1", "Zeile 2", "Zeile 3"}),
#"Ersetzter Wert" = Table.ReplaceValue(#"Neu angeordnete Spalten1",null,0,Replacer. _
ReplaceValue,{"Zeile 1", "Zeile 2", "Zeile 3"}),
#"Entpivotierte andere Spalten" = Table.UnpivotOtherColumns(#"Ersetzter Wert", {" _
Zusammengeführt"}, "Attribut", "Wert"),
#"Umbenannte Spalten" = Table.RenameColumns(#"Entpivotierte andere Spalten",{{"Zusammengefü _
hrt", "Spalte"}, {"Attribut", "Zeile"}})
in
#"Umbenannte Spalten"

Sub test() Dim arr1 Dim arr2 Dim z1 As Long Dim s1 As Long Dim z2 As Long arr1 = Sheets("Tabelle1").UsedRange ReDim arr2(1 To (UBound(arr1, 1) - 1) * (UBound(arr1, 2) - 1), 1 To 3) For s1 = 2 To UBound(arr1, 2) For z1 = 2 To UBound(arr1, 1) z2 = z2 + 1 arr2(z2, 1) = arr1(1, s1) arr2(z2, 2) = arr1(z1, 1) arr2(z2, 3) = arr1(z1, s1) Next Next Sheets("Tabelle2").Cells(2, 1).Resize(UBound(arr2, 1), UBound(arr2, 2)) = arr2 End Sub

Herrje,
ich wollte eigentlich keine Grundsatzdiskussion lostreten.
Danke nochmal an alle die sich des Themas angenommen haben, meine Meinung dazu:
1. natürlich würde es mich auch interessieren, wie man eine Schleife "verschaltet". würde bestimmt witzig aussehen. Sorry für den Schreibfehler, "verschachteln" hätte meine Frage natürlich besser umschrieben.
2. mit PowerQuery oder PowerPivot zu arbeiten ist hier nicht in meinem Sinne. Man stelle sich vor, ich verarbeite hier Daten einer Schule und möchte der Sektretärin ein Tool an die Hand geben mit der sie Zeit sparen kann (ich selbst bin im Förderverein). Ich bin froh, dass die Sekretärin weiß wie sie Excel starten kann. Mehr brauch ich dazu wohl nicht zu sagen.
FrankFurter - Ein klein wenig muss ich da Daniel auch zur Seite springen. Ich habe PowerQuery schonmal aus der Ferne gesehen, ich glaube auch ich könnte rekonstruieren was Du da vor hattest. Etwas mehr Beschreibung zu der ganzen Nummer wäre aber hilfreich gewesen (sofern es denn für mich infrage gekommen wäre). Trotzdem bin ich natürlich nicht derjenige der sich beschwert wenn er eine Antwort bekommt. Ich bin für JEDE Antwort dankbar und wenn du sagst - "ich will Interesse wecken" - dann bin ich natürlich voll bei Dir....
3. zur Formellösung nochmal - ja - natürlich kann ich die Formeln auch mittels Makro in die Zellen schreiben. ABER - und da komme ich wieder zu dem potentiellen Anwender - ich möchte keine Verwirrung stiften. Wenn die Dame am Ende des Tages ein Blatt in der Hand hält auf dem nur Werte stehen, dann gibt es keine blöden Fragen...
Gruß an alle und danke nochmal!

Beliebteste Forumthreads (12 Monate)

48 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

48
Beiträge zum Forumthread

Beiträge zu diesem Forumthread