Thema Datum  Von Nutzer Rating
Antwort
Rot Liste um Werte aus anderer Liste säubern (string)
01.12.2022 17:33:51 Luke
Solved
01.12.2022 22:28:12 ralf_b
NotSolved
02.12.2022 13:19:40 Gast44794
NotSolved
02.12.2022 16:15:35 Lukas
NotSolved

Ansicht des Beitrags:
Von:
Luke
Datum:
01.12.2022 17:33:51
Views:
267
Rating: Antwort:
 Nein
Thema:
Liste um Werte aus anderer Liste säubern (string)

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Liste um Werte aus anderer Liste säubern (string)
01.12.2022 17:33:51 Luke
Solved
01.12.2022 22:28:12 ralf_b
NotSolved
02.12.2022 13:19:40 Gast44794
NotSolved
02.12.2022 16:15:35 Lukas
NotSolved