With Workbook..Worksheets ! Brauche mal eure Hilfe

Sub Keine()
Dim arr, a
With Tabelle10 'so gehts
arr = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
arr = WorksheetFunction.Transpose(arr)
For a = LBound(arr) To UBound(arr)
arr(a) = CStr(arr(a))
Next
With Tabelle2
If .FilterMode Then .ShowAllData
.Range("A1").AutoFilter Field:=9, Criteria1:=arr, Operator:=xlFilterValues
End With
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
Range("A1").Select
End Sub