Daten aus geschlossener Datei

Sub test()
Dim a As Long, i As Long
Dim Wert1 As String, Wert2 As String
a = 6
Wert1 = Tabelle1.Cells(1, 2).Value
With Worksheets("Tabelle2")
For i = 7 To 1000
Wert2 = .Cells(i, 5).Value
If Left(Wert2, Len(Wert1)) = Wert1 Then
If Len(Wert2) = Len(Wert1) Or Not IsNumeric(Right(Wert2, 1)) Then
Worksheets("Tabelle1").Cells(a, 1).Value = .Cells(i, 1).Value
Worksheets("Tabelle1").Cells(a, 2).Value = .Cells(i, 2).Value
a = a + 1
End If
End If
Next i
End With
End Sub