VBA: Prüfen von Werten auf Vorhandensein
04.09.2019 15:03:03
Werten
ich möchte zwei Listen miteinander vergleichen, eine Quell- und eine Zielliste. In der Quellliste soll für jede Zeile abgefragt werden, ob der Eintrag in der Zielliste vorhanden ist. Wenn ja, alles gut, wenn nein, dann soll der Eintrag am Ende der Zielliste als Zeile eingefügt werden (den Teil habe ich noch nicht).
Folgenden Code habe ich dazu bisher:
Sub Liste_aktualisieren()
Dim oZelle As Object
Dim rQuellliste As Range
Dim rZielliste As Range
Set rQuellliste = Worksheets("Tabelle_1").Range("F2:F36")
For Each oZelle In rQuellliste
Set rZielliste = Worksheets("Tabelle_2").Range("B:B").Find(rQuellliste, LookIn:=xlValues, _
_
LookAt:=xlWhole)
If rZielliste Is Nothing Then
MsgBox "Wert ist nicht vorhanden!"
Else
End If
Next
End Sub
Ich habe folgendes Problem: die Schleife wird nicht korrekt durchlaufen, d.h. bei jedem Makro-Durchlauf wird immer nur die erste Zelle der Quellliste geprüft (also F2).
Ihr erkennt mit eurem geübten Auge bestimmt gleich, woran das liegen könnte?
Vielen Dank!
Nitokris