Doppelte Datensätze kopieren - nicht löschen
06.02.2006 16:56:46
Jack
bisher habe ich immer nur über das Archiv gesucht und bin auch immer fündig geworden. Nun bräuchte ich Hilfe, da ich trotz Suche keine Lösung finden konnte.
Mein Problem: Eine Tabelle hat in einer Spalte ("B") Werte, die doppelt oder mehrfach vorkommen. Alle mehrfach vorhandenen Datensätze sollen in ein anderes Tabellenblatt zur Überprüfung kopiert werden.
Zum Thema "doppelte Datensätze löschen" habe ich einiges gefunden, konnte nur leider nichts auf mein Problem umbiegen.
Folgenden Code, den ich im Zusammenhang gefunden habe, würde ich gerne an meine Bedürfnisse anpassen. Bin natürlich für jede andere Hilfe auch dankbar ;-)
Sub DoppelteLöschen()
Dim Zeile As Long
Zeile = 1
Do While Cells(Zeile, 2) <> ""
If Cells(Zeile, 2) = Cells(Zeile + 1, 2) Then
Rows(Zeile).Delete
Else
Zeile = Zeile + 1
End If
Loop
End Sub
Im Voraus schon mal vielen Dank!
Jack
Anzeige