VBA: Prüfen auf Vorhandensein und Einfügen
05.09.2019 10:38:26
Nitokris
jetzt habe ich doch noch einen Nachtrag zu meiner gestrigen Frage. Mit eurer Hilfe habe ich es geschafft, eine Zielliste (in Tabelle_2) korrekt nach den Einträgen einer Quellliste (in Tabelle_1) zu durchsuchen. Wenn ich nun allerdings versuche, die Zielliste um den ggf. fehlenden Eintrag in der Quellliste zu erweitern, scheitere ich kläglich.
Sub Liste_aktualisieren()
Dim oZelle As Object
Dim rQuellliste As Range
Dim rZielliste As Range
Dim rLetzteZeile As Range
Set rLetzteZeile = Worksheets("Tabelle_2").Range("B:B").Find("Projekte", LookIn:=xlValues, _
LookAt:=xlWhole)
Set rQuellliste = Worksheets("Tabelle_1").Range("F2:F36")
For Each oZelle In rQuellliste
Set rZielliste = Worksheets("Tabelle_2").Range("B:B").Find(oZelle, LookIn:=xlValues, LookAt:= _
_
xlWhole)
If rZielliste Is Nothing Then
With Sheets("Tabelle_2")
Range(Rows(rLetzteZeile.Row), Rows(rLetzteZeile.Row + 3)).Insert shift:= _
xlDown
End With
Worksheets("Tabelle_1").Range(oZelle).Copy
Worksheets("Tabelle_2").Range(?).Paste
Application.CutCopyMode = False
Else
End If
Next
End Sub
Vielen Dank schon mal und viele Grüße
Nitokris