Sub
dynamischKopierenEinfuegen()
Dim
loLetzte
As
Long
loLetzte = ThisWorkbook.Worksheets(
"Druck"
).Cells(Rows.Count, 1).
End
(xlUp).Row
Application.ScreenUpdating =
False
If
loLetzte = 1
Then
loLetzte = 2
Else
loLetzte = loLetzte + 1
End
If
With
ThisWorkbook.Worksheets(
"Auswahl"
)
.Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 8)).Copy
Sheets(
"Druck"
).Cells(loLetzte, 1).PasteSpecial Paste:=xlPasteValues
End
With
Application.CutCopyMode =
False
Application.ScreenUpdating =
True
End
Sub