Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Jede Zeile X-Mal kopieren

Jede Zeile X-Mal kopieren
06.08.2018 22:13:12
Ben
Hallo Zusammen,
bin verzweifelt auf der Suche nach den richtigen Code-Schnipseln.
Leider benötige ich die Excel Liste schon morgen, spätestens übermorgen.
Hab eine xlsx Excel-Liste mit Adressen. Jede Zeile ist eine Adresse und jede Zeile bekommt ein Päckchen. Im letzten Feld der Zeile (Spalte "Menge") steht eine Zahl.
Das Makro soll jede Zeile so oft kopieren wie die Zahl in der jeweiligen Zeile groß ist.
Ich schau mir schon seit Stunden Youtube Tutorials an und lese Anleitungen im Netz.
Aber bisher nicht das richtige gefunden.
Freue mich auf jede Hilfestellung.
Gruß
Ben
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede Zeile X-Mal kopieren
06.08.2018 22:32:27
Daniel
Hi
Suche nicht nach Makros.
Diese Aufgabe kann man auch mit einfachen Formeln lösen.
Gruß Daniel
AW: Datei
06.08.2018 23:26:55
Ben
Danke Lupo1.
Ich versuche gerade die Formel einzubauen. Versteh nicht was die macht muss erstmal recherchieren.
Melde mich dann.
Ben
Anzeige
AW: Datei
07.08.2018 00:09:25
Ben
VERGLEICH(ZEILE(F1);D:D)
INDEX(A:A;F2)
Also ich versteh nicht wie die Formeln helfen sollen. Ich will ja die ganze Zeile kopieren nicht nur ein Feld. Hier ein Beispiel oben deine Formel unten wie meine Tabelle aussieht die drei Zeilen.
https://www.herber.de/bbs/user/123177.xlsx
Anzeige
Datenlänge
07.08.2018 06:59:01
lupo1
... ist bei mir halt nur 1 Feld, da Du nichts zur Anzahl Felder gesagt hast.
Ändere G2:
=INDEX(A:A;F2) zu
=INDEX(A:A;$F2)
Füge in B weitere Spalten ein.
Die Daten von A bis B (oder weiter) findest Du dann ab I wieder, wenn Du die neue Spalte H nach rechts kopierst.
AW: Jede Zeile X-Mal kopieren
07.08.2018 00:02:08
Günther
Moin Ben,
ich löse so etwas mit xl2010/13: Power Query, xl2016/365: Daten | Abrufen und transformieren. Sieh dir dazu einmal die Funktion List.Repeat der Abfragesprache M an. Probiert und funzt.
Gruß
Günther
Anzeige
List.Repeat(list as list, count as number) as list
07.08.2018 08:16:05
robert
Hi Günther,
und wie und wo einfügen?
Ich komm nicht drauf :-(
Bitte um Lösung
Gruß
robert
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
Anzeige
Google-Power Query-jede Menge :-) owT
07.08.2018 09:46:28
robert

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Jede Zeile X-Mal kopieren in Excel


Schritt-für-Schritt-Anleitung

Um jede Zeile in Excel X-Mal zu kopieren, kannst du Power Query verwenden. Hier ist eine detaillierte Schritt-für-Schritt-Anleitung:

  1. Excel-Tabelle öffnen: Öffne die Excel-Datei, die die Daten enthält.
  2. Daten markieren: Markiere alle Zellen, die die Daten enthalten.
  3. Tabelle erstellen: Gehe auf die Registerkarte „Daten“ und wähle „Aus Tabelle“. Setze einen Haken bei „Tabelle hat Überschriften“ und bestätige mit „OK“.
  4. Power Query Editor: Der Power Query Editor öffnet sich. Gehe zur Registerkarte „Start“ und wähle „Erweiterter Editor“.
  5. Code einfügen: Füge den folgenden Code in den Editor ein:
    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"
  6. Anpassungen vornehmen: Stelle sicher, dass die Spalte „MENGE“ vorhanden ist und dein Arbeitsblatt „Tabelle1“ heißt, oder ändere den Code entsprechend.
  7. Daten schließen und laden: Bestätige den Code, schließe den Editor und lade die neue Tabelle.

Häufige Fehler und Lösungen

  • Fehlende Spalte „MENGE“: Wenn der Code nicht funktioniert, überprüfe, ob die Spalte „MENGE“ korrekt benannt ist.
  • Falscher Tabellennamen: Stelle sicher, dass der Tabellenname im Code mit deinem Arbeitsblatt übereinstimmt. Wenn du eine andere Tabelle verwendest, passe den Namen an.
  • Power Query nicht verfügbar: In älteren Excel-Versionen (vor 2010) ist Power Query möglicherweise nicht verfügbar. In diesem Fall solltest du die Formeln oder Makros verwenden.

Alternative Methoden

Falls du nicht mit Power Query arbeiten möchtest, kannst du auch die folgende Formel verwenden, um jede Zeile zu duplizieren:

  1. Hilfsspalte verwenden: Füge eine Hilfsspalte hinzu, die die Anzahl der Duplikate berechnet.
  2. INDEX und VERGLEICH: Verwende Formeln wie INDEX und VERGLEICH, um die Werte aus der ursprünglichen Tabelle zu ziehen. Beispiel:
    =INDEX(A:A;VERGLEICH(ZEILE(F1);D:D;0))

Diese Methode ist jedoch weniger flexibel und erfordert mehr manuelle Anpassungen.


Praktische Beispiele

Angenommen, du hast die folgende Tabelle:

Adresse Menge
Adresse 1 3
Adresse 2 2
Adresse 3 1

Nach der Anwendung des Power Query Codes würde das Ergebnis so aussehen:

Adresse
Adresse 1
Adresse 1
Adresse 1
Adresse 2
Adresse 2
Adresse 3

Tipps für Profis

  • Power Query vertiefen: Wenn du häufiger mit Power Query arbeitest, nutze Online-Ressourcen, um deine Kenntnisse zu vertiefen. Du kannst auch Bücher über Datenaufbereitung in Excel lesen.
  • Automatisierung: Überlege, ob du Makros erstellen möchtest, um den Prozess zu automatisieren. Dies kann besonders hilfreich sein, wenn du regelmäßig ähnliche Aufgaben erledigen musst.
  • Datenvisualisierung: Nachdem du die Daten dupliziert hast, kannst du Diagramme oder Pivot-Tabellen verwenden, um die Informationen besser zu visualisieren.

FAQ: Häufige Fragen

1. Kann ich mit Excel jede Zeile duplizieren, ohne Power Query zu verwenden?
Ja, du kannst auch mit Formeln oder Makros arbeiten, aber Power Query ist oft die einfachste Methode.

2. Ist Power Query in Excel 2016 verfügbar?
Ja, Power Query ist in Excel 2016 und neueren Versionen integriert. In Excel 2010 und 2013 ist es als Add-In verfügbar.

3. Wie kann ich jede zweite Zeile farbig markieren?
Du kannst die bedingte Formatierung in Excel verwenden, um jede zweite Zeile farbig zu gestalten. Wähle die Daten aus und gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.

4. Gibt es eine Möglichkeit, eine Zeile 1000 Mal zu kopieren?
Ja, du kannst die oben genannten Methoden nutzen und die Anzahl in der Spalte „MENGE“ entsprechend anpassen, um eine Zeile 1000 Mal zu duplizieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige