EXCEL Duplikate in Spalte O finden und in anderer Spalte auflisten

Question

Hallo ihr fleißigen Helfer!

Ich bräuchte mal wieder eure Hilfe.

Ich habe in Spalte O von O2 bis O 2006 Rechnungsnummern stehen.

Diese Spalte O soll nach Duplikaten abgesucht werden und wenn Duplikate gefunden werden, sollen diese dann in Spalte Q aufgelistet werden.

Allerdings tatsächlich nur die Duplikate und keine Zelle ohne Duplikat. Das heißt, wenn drei Duplikate gefunden werden, sollen dann auch nur diese drei Duplikate in Spalte Q von oben (Q2) direkt untereinander gelistet sein (also in Q2,Q3 und Q4 stehen).

Ich wäre sehr glücklich, wenn es dafür eine Lösung gäbe.

Beste Grüße

Hans-Jörg

Answer 1

Worksheets(1) - Anpassen

Sub DoppelteFiltern()
    Dim DoppelteFalse As Object
    Worksheets(1).Range("Q2:Q" & Worksheets(1).Cells(Rows.Count, 15).End(xlUp).Row + 1).Clear
    Worksheets(1).Range("O:O").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Set DoppelteFalse = Worksheets(1).Range("O:O").SpecialCells(xlCellTypeVisible)
    Worksheets(1).Range("O:O").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    DoppelteFalse.Rows.Hidden = True
    Worksheets(1).Range("O:O").SpecialCells(xlCellTypeVisible).Copy Worksheets(1).Range("Q2")
    DoppelteFalse.Rows.Hidden = False
End Sub