Zum Hauptinhalt springen

Wie kann man Zeilen basierend auf einem Zellwert in einer Spalte duplizieren?

Author: Xiaoyang Last Modified: 2025-08-06

Beim Arbeiten mit Excel-Datentabellen müssen Sie manchmal ganze Zeilen entsprechend eines Werts in einer bestimmten Spalte duplizieren. Stellen Sie sich zum Beispiel vor, Sie haben eine Tabelle, in der Spalte D eine Zahl angibt, und Ihr Ziel ist es, jede Zeile so oft zu kopieren oder einzufügen, wie der Wert in der entsprechenden Zelle in Spalte D angibt. Dies kann nützlich sein für die Datenausweitung, das Vorbereiten von Datensätzen für Tests, die Simulation von Beständen oder das Generieren wiederholter Bestellzeilen. Die effiziente Erledigung dieser Aufgabe ohne manuelle Wiederholungen trägt zur Aufrechterhaltung der Datenintegrität bei und beschleunigt den Workflow erheblich, insbesondere bei größeren Tabellen.

Screenshot showing data table with numbers in column D before duplicating rows based on values Arrow Screenshot showing data table after duplicating rows based on column D values in Excel

Zeilen mehrfach basierend auf Zellwerten mit VBA-Code duplizieren

Kopieren und Einfügen von Zeilen basierend auf einer bestimmten Anzahl von Wiederholungen mit einem praktischen Tool – Kutools für Excel

Duplizieren von Zeilen über Power Query-Transformation


Zeilen mehrfach basierend auf Zellwerten mit VBA-Code duplizieren

Wenn Sie schnell Duplikate ganzer Zeilen gemäß den Werten in einer bestimmten Spalte (zum Beispiel in Spalte D) erstellen müssen, bietet VBA eine direkte, effiziente Lösung. Dieser Ansatz ist besonders wertvoll beim Umgang mit großen Datensätzen, da er den Prozess automatisiert und dabei hilft, Genauigkeit sicherzustellen. Das Arbeiten mit VBA erfordert jedoch grundlegende Kenntnisse des Excel-Entwickler-Tabs und ein Verständnis dafür, wie Makros ausgeführt werden. Der Hauptvorteil liegt in der Flexibilität – der Code kann angepasst werden, um unterschiedliche Bereiche oder Zielspalten zu berücksichtigen. Wenn Sie sich jedoch nicht mit VBA auskennen oder Sicherheitsrichtlinien Makros in Ihrer Umgebung blockieren, ziehen Sie bitte eine der unten genannten Alternativlösungen in Betracht.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Zeilen mehrfach basierend auf einem Zellwert duplizieren:

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Die gesamten Zeilen werden basierend auf dem Zellwert in Spalte D mehrfach dupliziert, entsprechend Ihren Anforderungen.

Hinweis: Im obigen Code steht der Buchstabe A für die erste Spalte Ihres ausgewählten Datenbereichs und D ist der Spaltenbuchstabe, der für die Anzahl der Duplikate verwendet wird. Passen Sie diese Buchstaben bei Bedarf an Ihre eigene Arbeitsmappe an. Denken Sie daran, Ihre Arbeitsmappe vor dem Ausführen von Makros zu sichern, da Makrooperationen nicht rückgängig gemacht werden können. Wenn eine Fehlermeldung erscheint, überprüfen Sie, ob Ihr ausgewählter Datenbereich und die Zielspalten konsistent sind.

Kopieren und Einfügen von Zeilen basierend auf einer bestimmten Anzahl von Wiederholungen mit einem praktischen Tool – Kutools für Excel

Wenn Sie eine Methode ohne Code bevorzugen oder eine benutzerfreundliche Oberfläche benötigen, um die Stapelduplizierung zu verwalten, bietet Kutools für Excel eine praktische Lösung. Seine Funktion „Zeilen/Spalten basierend auf einem Zellwert duplizieren“ ermöglicht es Ihnen, Zeilen schnell entsprechend der in den relevanten Zellen angegebenen Anzahl zu kopieren und einzufügen. Dies ist ideal für Personen, die solche wiederholten Zeilenoperationen regelmäßig durchführen und einen visuelleren, anpassbaren Prozess benötigen. Kutools erhält das Layout und die Formatierung der ursprünglichen Tabelle während der Duplizierung bei, was das Risiko unbeabsichtigter Fehler reduziert. Diese Methode funktioniert unabhängig von Ihrer VBA-Erfahrung reibungslos und verbessert die Effizienz bei mittleren bis großen Datenbereichen erheblich.

Kutools für Excel bietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und Kreativität sowie Effizienz zu steigern. Durch die Integration mit KI-Funktionen automatisiert Kutools Aufgaben präzise und macht das Datenmanagement mühelos. Detaillierte Informationen zu Kutools für Excel... Kostenlose Testversion...
  1. Klicken Sie auf Kutools > Einfügen > Zeilen/Spalten basierend auf einem Zellwert duplizieren, um diese Funktion zu aktivieren;
  2. Wählen Sie dann die Option Zeilen kopieren und einfügen und geben Sie die Zellen des Einfügebereichs und die Wiederholungsanzahl separat im Dialogfeld an. Bestätigen Sie Ihre Auswahl und klicken Sie auf OK.

Screenshot of Kutools for Excel Duplicate Rows/Columns feature dialog box


Duplizieren von Zeilen über Power Query-Transformation

Power Query bietet eine robuste, wiederholbare Lösung zum Duplizieren von Zeilen basierend auf einem Spaltenwert – ideal für größere Tabellen oder wenn Sie Daten häufig aktualisieren müssen. Mit diesem Tool können Sie Zeilen entsprechend numerischer Indikatoren ohne Formeln oder Code erweitern. Diese Methode eignet sich gut für Benutzer, die einen visuell erklärbaren, schrittweisen Prozess wünschen und Wiederholbarkeit mit zukünftigen Datenaktualisierungen benötigen.

1. Fügen Sie Ihre Daten in eine Excel-Tabelle ein (Bereich auswählen und Strg+T drücken). Gehen Sie zu Daten > Aus Tabelle/Bereich, um Ihre Tabelle in Power Query zu laden.

2. Wählen Sie im Power Query-Editor die Registerkarte Spalte hinzufügen und klicken Sie auf Benutzerdefinierte Spalte.

3. Geben Sie die folgende Formel ein, um für jede Zeile eine Liste entsprechend dem Wert in Spalte D zu generieren. ( Hinweis: Sie sollten [D] durch Ihre tatsächliche Spaltenüberschrift ersetzen. Zum Beispiel werde ich hier die Wiederholungsanzahl auswählen und auf die Schaltfläche Einfügen klicken, um das Argument [D] zu ersetzen.)

List.Repeat({1}, [D])

set options in the Power Query Editor

4. Klicken Sie auf die Schaltfläche Erweitern neben der neuen benutzerdefinierten Spalte und klicken Sie auf In neue Zeilen erweitern.

Click the Expand button

5. Dann können Sie sehen, dass die Daten basierend auf den Werten in Spalte D dupliziert wurden, siehe Screenshot:

the data has been duplicated based on the values

6. Entfernen Sie bei Bedarf die Hilfsspalten und klicken Sie auf Schließen & Laden, um die Daten zurück nach Excel zu bringen.

Tipps: Jedes Mal, wenn sich Ihre Quelldaten ändern, aktualisieren Sie einfach die Power Query-Ausgabe, um die wiederholten Zeilen automatisch zu aktualisieren. Dies gewährleistet Effizienz und Genauigkeit bei fortlaufenden oder automatisierten Datenprozessen. Power Query ist in Excel 2016 und später integriert und als kostenloses Add-In in früheren Versionen verfügbar. Wenn Ihre Excel-Version kein Power Query enthält oder Sie keine Abfragen erstellen können, ziehen Sie eine der oben genannten Formel- oder VBA-Lösungen in Betracht.

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!