Hallo,
probier mal:
Option Explicit
Public Sub Bsp()
Dim lngIndex As Long
Application.ScreenUpdating = False
With Worksheets(1)
For lngIndex = 2 To Worksheets.Count
Call Worksheets(lngIndex).Range(Worksheets(lngIndex).Rows(30), Worksheets(lngIndex).Rows(32)).Copy(Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1))
Next
End With
Application.ScreenUpdating = True
End Sub
Gruß,
|