Sub ImportData()
Dim x As Workbook, y As Workbook
Dim lz As Integer, n As Integer
Set x = Workbooks.Open("D:....")
Set y = ThisWorkbook
lz = x.Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Row
m = 2
For n = 2 To lz
If x.Sheets("Tabelle1").Cells(n, 1).Value = "Name1" Or _
x.Sheets("Tabelle1").Cells(n, 1).Value = "Name2" Or _
x.Sheets("Tabelle1").Cells(n, 1).Value = "Name3" Or _
x.Sheets("Tabelle1").Cells(n, 1).Value = "Name4" Or _
x.Sheets("Tabelle1").Cells(n, 1).Value = "Name5" Or _
x.Sheets("Tabelle1").Cells(n, 1).Value = "Name6" Then
y.Sheets("Versuch1").Range(y.Sheets("Versuch1").Cells(m, 1), y.Sheets("Versuch1").Cells(m, 8)).Value = x.Sheets("Tabelle1").Range(x.Sheets("Tabelle1").Cells(n, 1), x.Sheets("Tabelle1").Cells(n, 8)).Value
m = m + 1
End If
Next n
x.Close
End Sub