VBA Vergleichen und Duplikate löschen
05.09.2016 17:33:56
Rene
leider habe ich wieder mal ein Problem aber diesmal auch keine Idee.
Habe auch mal ein Code aus Google kopiert aber funktioniert nicht.
Ich habe 2 Tabellen in eine Exceldatei.
Dim WB1 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = ThisWorkbook
Set WS1 = WB1.Worksheets("Master_Verpackungsoptimierung")
Set WS2 = WB1.Worksheets("Verpackungsoptimierung")
Ich möchte gern das Spalte 1 von der WS1 und Spalte 1 von WS2 verglichen wird und die Zeilen der Duplikaten aus WS2 gelöscht werden.
Hier mal den Code aus den Internet der nicht funktioniert.
WS2 ist als Tabellenformat angelegt und WS1 nicht.
Sub Schaltfläche5_Klicken()
Dim lngRow As Long
Dim WB1 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = ThisWorkbook
Set WS1 = WB1.Worksheets("Master_Verpackungsoptimierung")
Set WS2 = WB1.Worksheets("Verpackungsoptimierung")
lngRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row
With WS1.UsedRange
With .Columns(.Columns.Count).Offset(2, 1)
.FormulaR1C1 = "=If(Countif(Tabelle1!R1C1:R" & lngRow & "C1,RC1)=0,"""",TRUE)"
.EntireRow.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
.ClearContents
End With
End With
End Sub
Vielleicht hat jemand ja eine Idee, vielen Dank im Voraus.
lg René
Anzeige