reiter durchlaufen copy/paste
Günther
ich habe folgendes (kleines für Euch bestimmt recht triviales) Problem und hoffe, Ihr könnt mir auf die Sprünge helfen. Nacheinander sollen die sheets durchlaufen werden und jeweils die ersten 7 Spalten (A-G)
in Reiter 1 untereinander fortlaufend kopiert werden, die Reiter werden zwar durchlaufen, aber leider wird nix kopiert...liegt wahrscheinlich an dem ActiveSheet.Paste...
Hoffe, Ihr könnt mir helfen!
Danke und Gruss
Günther
Sub Makro1()
Dim i As Long
For i = 2 To Sheets.Count
With Sheets(i)
Range("A1:G1000").Select
Selection.copy
Sheets("Hauptreiter").Select
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(Loletzte, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End With
Next i
End Sub
Anzeige