Gruppe
Allgemein
Bereich
Vergleich
Thema
Daten in jeweils einer Spalte zweier Tabellen vergleichen
Problem
Wie kann ich die Daten in jeweils einer Spalte von zwei Tabellen vergleichen und doppelte Datensätze löschen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub DoppelteRaus()
Dim wksA As Worksheet, wksB As Worksheet
Dim rng As Range
Dim iRow As Integer
Set wksA = Worksheets("Tabelle1")
Set wksB = Worksheets("Tabelle2")
iRow = 1
Do Until IsEmpty(wksA.Cells(iRow, 1))
Set rng = wksB.Columns(1).Find(wksA.Cells(iRow, 1))
If Not rng Is Nothing Then
wksA.Rows(iRow).Delete
wksB.Rows(rng.Row).Delete
End If
iRow = iRow + 1
Loop
End Sub