Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

referenzieren

referenzieren
09.07.2008 15: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
Anzeige
AW: referenzieren
09.07.2008 16: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



vielen dank nochmals
10.07.2008 08:33:04
Yusuf
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige