HERBERS Excel-Forum - das Archiv
Zeilen in Excel duplizieren, Basis Zellwerte
Stephan

Hallo,
habe folgendes Problem: Möchte in einer Tabelle Zeilen in Abhängigkeit eines Zellwertes in der jeweiligen Zeile vervielfachen, Hintergrund ist die Erzeugung einer Datenbank zum Etikettendruck. Beispiel Zeile 1, Spalte A: Produktname, Spalte B: Artikelnummer, Spalte C: Zahl der Etiketten (=Anzahl der zu erzeugenden Zeilen.
Würde mich sehr freuen wenn jemand eine Lösung parat hätte, mit meinen normalen Excel-Kenntnissen komme ich hier leider nicht weiter.
Vielen Dank schon im Voraus

AW: Zeilen in Excel duplizieren, Basis Zellwerte
Reinhard

Hallo Stephan,
Sub tt()
Dim Zei As Long
For Zei = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Rows(Zei + 1 & ":" & Zei + Cells(Zei, 3) - 1).Insert
Rows(Zei).Copy Destination:=Rows(Zei + 1 & ":" & Zei + Cells(Zei, 3) - 1)
Next Zei
End Sub

Gruß
Reinhard
AW: Zeilen in Excel duplizieren, Basis Zellwerte
Stephan

Hallo Reinhard,
klasse hat funktioniert, vielen Dank für die superschnelle Antwort!
Stephan
AW: Zeilen in Excel duplizieren, Basis Zellwerte
Josef

Hallo Stephan,
da wäre eine kleine aber aussagekräftige Beispieltabelle hilfreich.
Was, wann,wo - vorher-nachher
Gruß Sepp