Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Vergleichen und Duplikate löschen

VBA Vergleichen und Duplikate löschen
05.09.2016 17:33:56
Rene
Hallo zusammen,
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é

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt oT
05.09.2016 17:39:32
Hajo_Zi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige