AW: Kopiere, wenn Wert in anderer Liste nicht vorhande
23.01.2018 17:18:15
Werner
Hallo Malte,
einfach alles kopieren und anschließend über RemoveDuplicates die Duplikate entfernen.
Ich bin davon ausgegangen, dass in beiden Tabellen in Zeile 1 Überschriften vorhanden sind und der eigentliche Datenbereich in Zeile 2 beginnt.
Option Explicit
Public Sub kopieren_ohne_Doppler()
Dim loLetzteZiel As Long, loLetzteQuelle As Long
Dim wsZiel As Worksheet, wsQuelle As Worksheet
Set wsZiel = ThisWorkbook.Worksheets("Tabelle1")
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle2")
loLetzteZiel = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
loLetzteQuelle = wsQuelle.Cells(wsQuelle.Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With wsQuelle
.Range(.Cells(2, 1), .Cells(loLetzteQuelle, 3)).Copy _
wsZiel.Cells(loLetzteZiel, 1)
End With
loLetzteZiel = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row
wsZiel.Range("$A$1:$C$" & loLetzteZiel).RemoveDuplicates Columns:=1, Header:=xlYes
Set wsZiel = Nothing: Set wsQuelle = Nothing
Application.ScreenUpdating = True
End Sub
Gruß Werner