AW: Jede Zeile X-Mal kopieren
07.08.2018 09:19:26
Ben
Guten Morgen Zusammen,
zunächst vielen Dank euch allen!
Habs heute morgen hinbekommen mit Power Querry:
Im Code ist "MENGE" die Anzahl, wie oft die Zeilen kopiert werden sollen.
let
Source = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Added Custom" = Table.AddColumn(Source, "Custom", each {1..[MENGE]}),
#"Expanded Custom" = Table.ExpandListColumn(#"Added Custom", "Custom"),
#"Removed Columns" = Table.RemoveColumns(#"Expanded Custom",{"Custom"})
in
#"Removed Columns"
Falls jemand das selbe Problem hat und die Lösung verwenden will, hier Schritt für Schritt erklärt:
Man öffnet die Excel-Tabelle welche man bearbeiten möchte. Zunächst alle Felder markieren die Daten enthalten. Anschließend oben auf Registerkarte "Daten"-> "Aus Tabelle" im nachfolgenden Dialog wird nochmal abgefragt "Wo sind die Daten für die Tabelle?" und ein Haken setzen bei "Tabelle hat Überschriften". Mit "ok" bestätigen. Jetzt wird die Tabelle im Power Query Editor geöffnet. Hier direkt auf Registerkarte "Start"-->"Erweiterter Editor" und dort die Zeilen von oben einfügen.
Der Code setzt vorraus dass ihr eine Spalte mit der Überschrift "MENGE" habt und eure Arbeitsblatt "Tabelle1" heist. Kann natürlich auch im Code geändert werden. Der Code wird nach dem bestätigen sofort ausgeführt dann auf schließen und Laden und ihr habt eure neue Tabelle in einem neuen Tabellenblatt und könnt diese normal abspeichern verwenden.
Hat mir heute sehr geholfen.
Ich werd mich in nächster Zeit mehr damit beschäftigen. Power Query kann mir vermutlich noch viel helfen. Falls jemand Bücherempfehlungen, Youtube-Links etc darüber hat. Immer her damit.
Gruß
Ben