Hallo Woppel,
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
Gruß Werner
|