Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen kopieren | Herbers Excel-Forum


Betrifft: Zeilen kopieren von: Stefan
Geschrieben am: 04.02.2010 21:45:54

Hallo,

ich habe viele Zeilen, in der in SPalte 1 eine Zahl steht (SKU), in 2 eine EAN und in drei eine weitere Zahl

Nun müssten alle Zeilen so kopiert werden, dass die Kopie direkt unterhalb der Originalzeile steht.

Weiter muss bei der Kopie der Wert von Spalte 3 in Spalte 2 eingefügt werden:

Also:

Ausgang:

111 xxx yyy
222 sss ddd
333 fff ggg

Ergebnis:
111 xxx yyy
111 yyy yyy
222 sss ddd
222 ddd ddd
333 fff ggg
333 ggg ggg

usw.

Alle weiteren Spalten der Zeile sollen in der Kopie erhalten bleiben.

Danke und liebe Grüße
Stefan

  

Betrifft: AW: Zeilen kopieren von: Ramses
Geschrieben am: 04.02.2010 21:52:56

Hallo

Den Code in ein Modul deiner Mappe einfügen und starten

Option Explicit

Sub copyRow()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    Rows(i).Copy
    Rows(i + 1).Insert
    Cells(i + 1, 2) = Cells(i, 3)
Next i
End Sub
Gruss Rainer


  

Betrifft: AW: Zeilen kopieren von: Stefan
Geschrieben am: 05.02.2010 08:09:45

Daaanke! Klappt!


Beiträge aus den Excel-Beispielen zum Thema "Zeilen kopieren"