Microsoft Excel

Herbers Excel/VBA-Archiv

bestimmte Anzahl an Zeilen kopieren und einfügen

Betrifft: bestimmte Anzahl an Zeilen kopieren und einfügen von: Hans
Geschrieben am: 17.09.2014 10:35:19

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

  

Betrifft: AW: bestimmte Anzahl an Zeilen kopieren und einfügen von: fcs
Geschrieben am: 17.09.2014 12:53:09

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


 

Beiträge aus den Excel-Beispielen zum Thema "bestimmte Anzahl an Zeilen kopieren und einfügen"