Code abändern: Statt Spalten Bereiche kopieren

Bild

Betrifft: Code abändern: Statt Spalten Bereiche kopieren
von: Bonduca01
Geschrieben am: 17.07.2015 15:22:41

Hallo zusammen.
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
Danke!
Bon

Bild

Betrifft: AW: Code abändern: Statt Spalten Bereiche kopie
von: Daniel
Geschrieben am: 17.07.2015 15:59:46
Hi
statt Quelle.EntireColumn
weise gleich den Bereich richtig zu:
Set Quelle = Worksheets("Angebot").Range("A2:A10")
und im folgenden dann Quelle.AdvancedFilter
Gruß Daniel

Bild

Betrifft: AW: Code abändern: Statt Spalten Bereiche kopie
von: Bonduca01
Geschrieben am: 20.07.2015 13:34:56
Klasse! Danke!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code abändern: Statt Spalten Bereiche kopieren"