Gruppe
Allgemein
Problem
Wie kann ich die Daten in jeweils einer Spalte von zwei Tabellen vergleichen und doppelte Datensätze löschen?
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