Hallo zusammen,

ich habe folgende (in meinem Kopf) einfache Aufgabenstellung, bekomme es aber irgendwie nicht umgesetzt (bin auch schon ziemlich eingerostest im VBA).

Aufgabenstellung: Es gibt eine Liste mit Städten (Range "ListeB"), die um die Städte aus einer anderen Liste ("ListeA") bereinigt werden soll. 

Hier mein Code, bei dem ich den Fehler "Die Methode 'Union' ist für das Objekt "_global" fehlgeschlagen" bekomme. 
Kann mir hier jemand aus der Patsche helfen, ich wäre sehr Dankbar!

Sub Liste_aktualisieren()

    Dim firstAddress As String
    Dim c As Range
    Dim rngToDelete As Range
    Dim d As String
    Dim ListeA As Range
    Dim ListeB As Range
    Dim e As Object
    

Set ListeA = Worksheets("Tabelle4").Range("F1:F85")
Set ListeB = Worksheets("Tabelle2").Range("A1:A850")

For Each e In ListeA

d = e.Value



    With ListeB
       Set c = .Find(d, LookIn:=xlValues)
       If Not c Is Nothing Then
           firstAddress = c.Address
           Do
               If rngToDelete Is Nothing Then
                  Set rngToDelete = c
               Else
                  Set rngToDelete = Union(rngToDelete, c)
               End If
               Set c = .FindNext(c)
               If c Is Nothing Then Exit Do
           Loop While c.Address <> firstAddress
       End If
    End With

    If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete
    
    
    
    Next
    
End Sub