mehrfaches kopieren / Schleife

Forumthread: mehrfaches kopieren / Schleife

30.07.2005 15:10:55

Erich

Hallo EXCEL-Freunde,
ich möchte 11 Zeilen mit 10 Spalten mind. 100 x direkt untereinander kopieren.
Habe das mit dem Macrorecorder aufgezeichnet; allerdings gelingt mir die
Umsetzung in eine Schleife doch nicht. Wer kann helfen:


Sub Makro1()
Range("A1:J11").Select
Selection.Copy
Range("A12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("A23").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("A34").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Der Bereich A1:J11 ist zu kopieren; zuerst ab Zeile 12, dann ab Zeile 23,
dann ab Zeile 34 usw.......
Besten Dank!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Die Alternative zu Lotto ist KENO: http://www.kenostrategen.de

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrfaches kopieren / Schleife

30.07.2005 15:53:50

Eberhard
AW: mehrfaches kopieren / Schleife

30.07.2005 22:05:16

Erich
AW: mehrfaches kopieren / Schleife

31.07.2005 10:04:51

Eberhard
AW: mehrfaches kopieren / Schleife

31.07.2005 17:49:04

Erich

AW: mehrfaches kopieren / Schleife

30.07.2005 15:53:50

Eberhard

Hallo Erich,
so klappte es bei mir!


Sub Makro1()
Dim i%
For i = 1 To 100
Range("A1:J11").Copy Range("A" & i * 11 + 1)
Next i
Application.CutCopyMode = False
End Sub

Gruß Eberhard

AW: mehrfaches kopieren / Schleife

30.07.2005 22:05:16

Erich

Hallo Eberhard,
besten Dank, das funktioniert.
Muss ich was besonderes beachten, wenn ich nur eine Spalte (z.B. A2:A67) ab der Zeile 2
kopieren will? So funktioniert es nicht:


Sub Kopie11_eineSp()
Dim i%
For i = 2 To 38
Range("X2:Y67").Copy Range("X" & i * 66 + 1)
Next i
Application.CutCopyMode = False
End Sub

Besten Dank nochmal!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Die Alternative zu Lotto ist KENO: http://www.kenostrategen.de

AW: mehrfaches kopieren / Schleife

31.07.2005 10:04:51

Eberhard

dann muss es so heißen:


Sub Kopie11_eineSp()
Dim i%
For i = 1 To 38 ' hier die Häufigkeit eintragen - wieoft soll kopiert werden
Range("A2:A67").Copy Range("A" & i * 66 + 2)
Next i
Application.CutCopyMode = False
End Sub

In der erste Spalte beginnen alle Zellnamen mit "A"
deshalb heißt der zu kop. Bereich:
und die Zieladresse (die Zelle, bei der der Einfügeprozess beginnen soll):
"A" & i * 66 + 2 -> so entsteht der String
bei
i = 1: "A68"
i = 2: "A134"
Eberhard

AW: mehrfaches kopieren / Schleife

31.07.2005 17:49:04

Erich

Hallo Eberhard,
super - und danke für die freundliche Erklärung!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Die Alternative zu Lotto ist KENO: http://www.kenostrategen.de

Beliebteste Forumthreads (12 Monate)

Forumthread: mehrfaches kopieren / Schleife

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread