Bestimmte Zeile kopieren

Forumthread: Bestimmte Zeile kopieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bestimmte Zeile kopieren

18.04.2006 13:25:01

Bob

Hallo,
ich habe eine Zeile z.B. A2:D2 welche ich in jede zweite Zeile kopieren möchte wie kann ich dies tun, inkl. der Zellformatierung? Es geht um eine Liste mit 5000 Artikeln und unter jedem Artikel muss eine Zeile mit einem glichbleibenden Wert eingestellt werden eben die Zeile A2:D2. Unter jedem Artikel gibt es schon eine Leerzeile.Wie kann dies einfach kopiert werden?
Siehe Excel TB.
https://www.herber.de/bbs/user/32949.xls
Vielen Dank.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bestimmte Zeile kopieren

18.04.2006 13:45:13

u_
AW: Bestimmte Zeile kopieren

18.04.2006 13:50:11

BOB

AW: Bestimmte Zeile kopieren

18.04.2006 13:45:13

Hallo,
in ein Modul:


Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row + 1 Step 2
Range("A2:D2").Copy Cells(i, 1)
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

AW: Bestimmte Zeile kopieren

18.04.2006 13:50:11

BOB

Hallo,
Vielen tausend Dank für die schnelle Antwort. Es hat funktioniert....
Grüße