Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige