Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen kopieren

Zeilen kopieren
Stefan
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen kopieren
04.02.2010 21:52:56
Ramses
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
AW: Zeilen kopieren
05.02.2010 08:09:45
Stefan
Daaanke! Klappt!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige