Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
If Dateiname <> False Then
Set wsZiel = ThisWorkbook.Worksheets.Add
wsZiel.Name = "Kopierter Inhalt"
Zeile = 1
Set wbQuelle = Workbooks.Open(Filename:=Dateiname)
Set wsQuelle = wbQuelle.Worksheets(1)
lz = wsQuelle.Cells(wsQuelle.Rows.Count, 2).End(xlUp).Row
For i = 2 To lz
If wsQuelle.Cells(i, 2) <> "" Then
wsZiel.Cells(Zeile, 1).Value = wsQuelle.Cells(i, 2).Value
Zeile = Zeile + 1
End If
Next i
End If