Nachstehendes Programm von Volkert vergleicht eine sortierte Tabelle mit zwei Spalten und löscht alle ausser die Duplikate also zBsp. sind mehrere (Vornamen, Nachname) Hans Meier in der Tabelle wird Hans Meier als Duplikat aufgelistet. Es kann vorkommen, dass statt Hans Meier ein Meier Hans, das wären dann auch Duplikate, die allerdings so nicht erfasst, sondern als Unikat weggelöscht werden. Leider übersteigt diese Problematik meine Programmierfähigkeit. Wie muss eine erste Routine heissen, die auch alle vertauschten Duplikate herausfiltert. Danke für einen Hinweis.
Sebastian
i = 2
While wks.Cells(i, 1) ""
If wks.Cells(i, 1) wks.Cells(i + 1, 1) Then
wks.Rows(i).Delete
ElseIf wks.Cells(i, 2) wks.Cells(i + 1, 2) Then
wks.Rows(i).Delete
Else
While wks.Cells(i, 1) = wks.Cells(i + 1, 1) And wks.Cells(i, 2) = wks.Cells(i + 1, 2)
wks.Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend