Sub
TabellenKopierenUntereinander()
Dim
i
As
Long
Dim
loLetzteQ
As
Long
Dim
loLetzteZ
As
Long
Dim
raRng
As
Range
With
ActiveWorkbook
.Worksheets.Add Before:=.Worksheets(1)
For
i = 2
To
.Worksheets.Count
With
Worksheets(i)
loLetzteQ = .Cells(.Rows.Count, 1).
End
(xlUp).Row
loLetzteZ = Worksheets(1).Cells(Rows.Count, 1).
End
(xlUp).Row + 1
Set
raRng = .Range(.Cells(7, 1), .Cells(loLetzteQ, 13))
raRng.Copy Worksheets(1).Cells(loLetzteZ, 1)
End
With
Next
End
With
Set
raRange =
Nothing
End
Sub