Excel VBA - Unterschiedliche Zellenwerte in einer Spalte kopieren

[Nico_B]

Guten Morgen.

Ich habe mir aus einer Datenbank eine Liste mit offenen Posten gezogen und diese nach Excel importiert. Auf dem Import-Tabellenblatt sind zwei zusätzliche Spalten hinterlegt. Über diese Spalten wird das Jahr der Fälligkeit zurückgegeben und ein Schlüssel aus den Geschäftspartnerdaten. Da sich um eine Einzelpost handelt kann die Schlüsselkombination mehrmals auftauchen. Diese Besteht aus Namen;Forderung;Jahr. Wie nun bei eine Pivot-Tabelle würde ich gerne per Makro diesen Schlüssel auf ein zweites Tabellenblatt kopieren. Jeder Wert darf aber nur einmal auftauchen.

Ich hab schon selber versucht gegoogle, finde aber keine VBA-Lösung.
Könnt ihr mir weiterhelfen.

 

[ConVuzius]

Hi,

wie wärs mit erst kopieren und dann Duplikate entfernen?

z.B.:

Sheets(1).Range("A1:A17").Copy Destination:=Worksheets(2).Range("A1")
    Application.CutCopyMode = False
    Sheets(2).Range("$A$1:$A$17").RemoveDuplicates Columns:=1, Header:=xlNo