Sub CopyWochenbericht()
Dim bk As Workbook
Dim shBasis As Worksheet
Dim rngBasis As Range
Dim rngListe As Range
For Each bk In Application.Workbooks
If bk.Name = "Wochenbericht.xlsx" Then
Exit For
End If
Next
If bk Is Nothing Then
Set bk = Application.Workbooks.Open("L:\Temp\Kopieren\Wochenbericht.xlsx")
End If
Set shBasis = ThisWorkbook.Worksheets("Basis")
Set rngBasis = shBasis.Cells(shBasis.UsedRange.Rows.Count + 1, 1)
With bk.Worksheets("Liste1")
Set rngListe = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, .UsedRange.Columns.Count))
End With
Set rngBasis = rngBasis.Resize(rngListe.Rows.Count, rngListe.Columns.Count)
rngBasis.Value = rngListe.Value
End Sub