Duplikate finden und Löschen

[Kaywarri124]

Hallo Gast 123,

:) das ist ja Traumhaft, sehr gut danke.

Als ich habe jetzt

Code:

Application.CutCopyMode = False
ActiveSheet.Range("$A$2:$U$300").RemoveDuplicates Columns:=4, Header:=xlYes

 
Ans Ende drangehangen, das klappt ganz gut.
Zwei Sachen wäre dann noch Perfekt.
Die Zeilen mit "Daten aus tab Alt und Neu" und "Neue Daten" von A-U zu makieren. Wenn ich den Com Button drücke, löscht er meine Formatierungen raus.
Und eine Möglichkeit per VBA das neue Tabellen Blatt als Kopie einzeln abzuspeichern.

[Elex]

Hey,

Versuch es mal mit Bsp. im Anhang.

Mfg Elex