Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ohne Select

ohne Select
10.12.2007 20:30:01
Larissa
Hallo,
ich möchte diesen Code (Spezialfilter) ohne select von einem anderen Tabellenblatt ausführen lassen ohne das Blatt "AB5" einzublenden. Er funktioniert aber nur, wenn das Blatt "AB5" vorher geöffnet wird.
Sheets("AB5").Range("Q2:Q8").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Q2:Q8"), CopyToRange:=Range("A40:A46"), Unique:=True
Was muss ich denn ändern?
Danke für Eure Hilfe und lieben Gruß,
Larissa

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ohne Select
10.12.2007 20:45:00
Original
Hi,
With Sheets("AB5")
.Range("Q2:Q8").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("Q2:Q8"), CopyToRange:=.Range("A40:A46"), Unique:=True
End With
mfg Kurt

AW: ohne Select
10.12.2007 20:50:27
Larissa
Danke Kurt,
genau so funktioniert es.
Lieben Gruß,
Larissa

AW: ohne Select
10.12.2007 20:58:00
Beate
Hallo Larissa,

Für dich besonders interessant dürfte Nr. 4 sein. Zeichne den Code entsprechend auf.
Nach Codeaufzeichnung füge folgende Zeile ganz oben in den Code ein:
Application.ScreenUpdating = False
Gruß,
Beate
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige