Hallo zusammen
Sub SchwarzeListeBe()
Dim i As Long, u As Long
Dim oDaten() As Variant
With ThisWorkbook.Worksheets("Tabelle2")
oDaten = Application.Transpose(.Range(.[A2], .Cells(Rows.Count, "A").End(xlUp))) '*************Hier kommt der Fehler*************
End With
With ThisWorkbook.Worksheets("Tabelle1")
For i = .Cells(.Rows.Count, 3).End(xlUp).Row To 2 Step -1
For u = LBound(oDaten) To UBound(oDaten)
If Cells(i, 3) = oDaten(u) Then Rows(i).Delete
Next u
Next i
End With
End Sub
Ziel ist es: Alles was in Tabelle2 in Spalte A von 2 bis Ende wird mit den Werten in Tabelle1 verglichen (Spalte3) -> sollte eine Übereinstimmung erfolgen, wird die Zeile gelöscht
Jedoch weiß ich nicht, wie ich den Fehler beheben kann.
Peter
|