Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilenbereich untereinander kopieren

Zeilenbereich untereinander kopieren
Maris
Hi Leutz,
ich möchte den Zeilenbereich A1:A156 markieren, kopieren und 52 x in dem selben Tabellenblatt untereinander kopieren. Kann mir jemand mit einem kleine Code weiterhelfen?
Gruß
Maris

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilenbereich untereinander kopieren
31.01.2011 10:27:58
Rudi
Hallo,
Sub xxx()
dim i as integer
for i= 1 to 52
Range("A1:A156").copy cells(rows.count, 1).end(xlup).offset(1)
next i
End Sub

Gruß
Rudi
AW: Zeilenbereich untereinander kopieren
31.01.2011 11:28:26
Maris
DAnke schön!!!!!
Gruß,
Maris
Zeilenbereich untereinander kopieren
31.01.2011 10:31:25
Matthias
Hallo Maris
Sub Kopiere()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 52
Range("A1:A156").Copy
Range("A1").Insert Shift:=xlDown
Next
Application.CutCopyMode = 0
End Sub
Gruß Matthias
besser so ...
31.01.2011 11:09:14
Matthias
Hallo
Option Explicit
Sub Kopiere()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 52
Range("A1:A" & 156).Copy Range("A" & 156 * x + 1)
Next
End Sub

Gruß Matthias
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige