Ich versuche eine VBA Macro zu programmieren die mir erlaubt eine Zelle von der einen Tabelle1 zu Tabelle2 zu kopieren und vorher überprüft ob die Zelle die kopiert wird bereits in Tabelle2 vorhanden ist. Dabei soll die hinzugefügte neue Zelle in Tabelle2 unterhalb der bereits existierenden hinzugefügt werden. hier die mappe wie sie derzeit aussieht : https://www.herber.de/bbs/user/147555.htm
mein bisheriger code sieht so aus:
Sub ZeileEinfuegen()
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim rng As Range
Dim lngZeile As Long, lngZeileMax As Long
Dim lngZeileEinfuegen As Long
Set wsQuelle = Worksheets("Tabelle1")
Set wsZiel = Worksheets("Tabelle2")
'Letzte beschriebene Zelle in Spalte 3 von Import_user
lngZeileMax = wsQuelle.Cells(Rows.Count, 2).End(xlUp).Row
'letzte beschriebene Zelle in Spalte 2 von Datenbank
lngZeileEinfuegen = wsZiel.Cells(Rows.Count, 2).End(xlUp).Row
'Gehe durch alle Eingaben von Import_user
For lngZeile = 2 To lngZeileMax
'Ist der Eintrag bereits in der Datenbank enthalten?
Set rng = wsZiel.Columns(2).Find(What:=wsQuelle.Cells(lngZeile, 2).Value, LookAt:=xlWhole)
'Wenn der datensatz nicht vorhanden ist,...
If rng Is Nothing Then
'dann in die nächste Zeile
lngZeileEinfuegen = lngZeileEinfuegen + 1
'und füge den Inhalt ein.
wsZiel.Cells(lngZeileEinfuegen, 1).Value = wsQuelle.Cells(lngZeile, 3).Value
End If
Next
End Sub
>Danke schonmal im Voraus für eure hilfe.
mfg