ich habe folgendes problem.
Ich möchte die Einträge von Tabelle1 in Tabelle 2 Kopieren
habe da ein Macro gemacht funktioniert ganz gut.
Sub User_kopieren()
Sheets("Liste").Select
Columns("B:B").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Liste").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Columns("B:B").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Liste_sortieren").Select
Application.CutCopyMode = False
Selection.Cut
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub
jetzt möcht ich noch, das doppelte einträge gelöscht werden
und in eine weitere Spalte eine Formel eingetragen wird
ist das möglich -
Hier sind wohl die Ecxel Profies gefragt -die gibts ja auch hier -Gott sei Dank