Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen in Excel duplizieren, Basis Zellwerte | Herbers Excel-Forum


Betrifft: Zeilen in Excel duplizieren, Basis Zellwerte von: Stephan
Geschrieben am: 19.12.2009 21:45:44

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

  

Betrifft: AW: Zeilen in Excel duplizieren, Basis Zellwerte von: Reinhard
Geschrieben am: 19.12.2009 22:20:08

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


  

Betrifft: AW: Zeilen in Excel duplizieren, Basis Zellwerte von: Stephan
Geschrieben am: 20.12.2009 08:02:11

Hallo Reinhard,

klasse hat funktioniert, vielen Dank für die superschnelle Antwort!

Stephan


  

Betrifft: AW: Zeilen in Excel duplizieren, Basis Zellwerte von: Josef Ehrensberger
Geschrieben am: 19.12.2009 22:20:59

Hallo Stephan,

da wäre eine kleine aber aussagekräftige Beispieltabelle hilfreich.

Was, wann,wo - vorher-nachher


Gruß Sepp



Beiträge aus den Excel-Beispielen zum Thema "Zeilen in Excel duplizieren, Basis Zellwerte"