Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ohne Select

Forumthread: 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

Anzeige

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,
Guckst du:
Spezialfilter (1) - Duplikate wegfiltern
Spezialfilter (2) - Filtern nach Kriterien
Spezialfilter (3) - Filtern mit Funkionen
Spezialfilter (4) - Filterergebnis in ein anderes Tabellenblatt

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige