doppelte Datensätze löschen
02.06.2006 14:49:01
Karl
folgender Code soll in Tabelle1 alle Datensätze löschen, die auch in Tabelle2 vorkommen. Hierbei wird nur in der 1. Spalte gesucht.
Der Code wird erstmal korrekt ausgeführt, d.h. doppelte Datensätze werden gelöscht, aber beim ersten "neuen" Datensatz geht es nicht weiter und Excel rechnet sich ins Nirwana... Wo liegt der Fehler?
Danke an alle!
Karl
Private Sub CommandButton1_Click()
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
End If
Loop
End Sub