Doppelte Einträge finden und seperat ausgeben

Question

Halle alle zusammen,

ich habe eine Tabelle mit 3 Spalten und mehr als 4000 Zeilen.
Ich brauche ein Programm, welches alle doppelten bzw. mehrmaligen Einträge aus Spalte 1 sucht, ausschneidet und irgendwo in Tabelle2 einfügt.
Leider bekomme ich das nicht hin.
Ich hoffe mir kann schnell jemand helfen.
Vielen Dank im Voraus.

MfG MurderMo

Answer 1

hey malSchaun...

vielen lieben Dank für die Bemühungen...
das Programm läuft einwandfrei und befriedigt meine Bedürfnisse...

und sry das ich mich jez erst bedanke aba lange nicht da...

also nochmals vielen Dank und weiter so ;)

LG
MurderMo

Answer 2

hi all ^^

ein beispiel

gruss nighty

Option Explicit
Sub FilterKopieren()
ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets(1).Range("C1")
ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace
End Sub