Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1380to1384
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

bestimmte Anzahl an Zeilen kopieren und einfügen

bestimmte Anzahl an Zeilen kopieren und einfügen
17.09.2014 10:35:19
Hans
Hallo zusammen,
habe ein Excel-Sheet mit ca. 1.800 Zeilen und 32 Spalten.
Nun möchte ich, dass ein Makro die Daten aus Zeile H6:H37 kopiert und in G38:G69 einfügt. Anschließend soll Zeile I6:I37 kopiert werden und in Zeile G70:G81 kopiert werden, usw. bis zur letzten Spalte.
Kann mir hier jemand weiterhelfen?
Vielen Dank
Hans

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Anzahl an Zeilen kopieren und einfügen
17.09.2014 12:53:09
fcs
Hallo Hans,
Sub copypaste2()
Dim wks As Worksheet, Spalte As Long, Zeile As Long
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
Zeile = 38
For Spalte = 8 To .Cells(6, Columns.Count).End(xlToLeft).Column
.Range(.Cells(6, Spalte), .Cells(37, Spalte)).Copy .Cells(Zeile, 7)
Zeile = Zeile + 37 - 6 + 1
Next Spalte
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub
Gruß
Franz
Anzeige

376 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige