Code abändern: Statt Spalten Bereiche kopieren
17.07.2015 15:22:41
Bonduca01
Wie kann man folgenden Code abändern, dass nicht die Spalten, sondern Bereiche (z.B. A2:A10) ohne Duplikate kopiert werden?
Sub ListeOhneDuplikate_Angebot()
Dim Quelle As Range
Dim Ziel As Range
Set Quelle = Worksheets("Angebot").Range("a2")
Set Ziel = Worksheets("Nachfrage").Range("c3")
Quelle.EntireColumn.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Quelle.EntireColumn, CopyToRange:=Ziel, Unique:=True
End Sub
Bon