von zwei spalten die Einträge (ohne doppelte Einträge) in andere spalten kopieren

[Niko]

Hallo an alle  :78:

 Möchte von zwei spalten die Einträge (ohne doppelte Einträge) in andere spalten und Blatt kopieren.

Wie kann ich dies mit VBA bewerkstelligen?

Habe anbei eine Beispiel Datei eingefügt.



Danke im Voraus

[Kuwer]

Hallo,

Code:

Sub Makro2()
    Range("A1").CurrentRegion.Copy Range("G1")
    Range("G1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Gruß Uwe

[Klaus-Dieter]

Code:

gelöscht, wg. zu langsam. 

[Raoul21]

Hi

gelöscht, weil zu langsam.

Oder Formellösung: Duplikate mehrerer Spalten bzw. Datensätze markieren

Gruss, Raoul

[Klaus-Dieter]

Hallo,

nicht mein Vorschlag war zu langsam, sondern ich. Uwe hat eine ähnliche Lösung wie ich vorgeschlagen.

[Niko]

Uwe Großes Danke schön …auch alle anderen für Ihren Zeitaufwand….habe doch zu kompliziert gedacht…Danke nochmals…und wünsche ein schönen Tag an alle.