referenzieren

Forumthread: referenzieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: referenzieren

referenzieren

09.07.2008 17:33:41

Yusuf

Hi,
hab mir ein Tipp der letzten Tage mal zu Herzen genommen und versuche .select und .activate zu vermeiden.
Hier komme ich leider nicht weiter.
Es ist ein Spezialfilter
Workbooks("TopAuswertungIntern.xls").Sheets("ablage").Range(Cells(1, 1), _
Cells(ende,1)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Workbooks("TopAuswertungIntern.xls").Sheets("ablage").Range(Cells(1, 2), Cells(ende, 2)), _ CopyToRange:=cells(1, 4), Unique:=True
Vielen Dank im voraus
Gruß
Yusuf

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: referenzieren

09.07.2008 18:02:00

Hajo_Zi
vielen dank nochmals

10.07.2008 10:33:04

Yusuf

AW: referenzieren

09.07.2008 18:02:00

Hajo_Zi

Hallo Yusof,
bei alle Cells und Range muss ein Bezug zur Tabelle.


Option Explicit
Sub Yusof()
With Workbooks("TopAuswertungIntern.xls").Sheets("ablage")
.Range(Cells(1, 1), .Cells(ende, 1)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange: _
= _
.Range(Cells(1, 2), .Cells(ende, 2)), CopyToRange:=.Cells(1, 4), Unique:=True
End With
End Sub