Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter über alle Tabellenblätter

Forumthread: Autofilter über alle Tabellenblätter

Autofilter über alle Tabellenblätter
04.04.2013 15:54:39
Toumas
Hallo zusammen,
wie kann ich den Filter von Tabellenblatt 1 auf die anderen Tabellenblätter (Anzahl variiert) übernehmen ?
Ich habe hier im Archiv den Code : 
Sub AlleFiltern()
Dim iWks As Integer
For iWks = 2 To Worksheets.Count
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:="=Zeile1*", _
Operator:=xlAnd
Next iWks
End Sub
gefunden, aber da erscheint die Fehlermeldung :
Die Auto-Filter-Methode des Range-Objektes konnte nicht ausgeführt werden.
Da ich von VBA leider kaum Ahnung habe wäre ich für eine Lösung sehr dankbar.
Viele Grüße
Toumas

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter über alle Tabellenblätter
04.04.2013 15:59:23
Klaus
Hi Toumas,
gibt es denn auch auf JEDEM Blatt einen Autofilter? Wenn der irgendwo nicht gesetzt ist, steigt das Makro natürlich aus!
Um ganz sicher zu gehen, setze den Autofilter innerhalb des Makros. Im Beispiel mal immer für Spalte A:
Sub AlleFiltern()
Dim iWks As Integer
For iWks = 2 To Worksheets.Count
Call DoResetAutofilter(Worksheets(iWks), 1, 1, 1)
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:="=Zeile1*", _
Operator:=xlAnd
Next iWks
End Sub
Sub DoResetAutofilter(wksMySheet As Worksheet, iColFirst As Integer, iColLast As Integer,  _
lRowFirst As Long)
'* in case a user used another autofiler, this makro resets the autofilter to where needed.
Dim lRowLast As Long
With wksMySheet
lRowLast = .Cells(.Rows.Count, iColFirst).End(xlUp).Row
If .AutoFilterMode Then .Cells.AutoFilter 'Turns OFF Autofilter, if any
.Range(.Cells(lRowFirst, iColFirst), .Cells(lRowLast, iColLast)).AutoFilter 'Turns ON  _
Autofilter on given range
End With
End Sub
Dass Makro "DoResetAutoFilter" schaltet zunächst jeglichen Autofilter aus und setzt ihn dann neu, und zwar für den bereich A1 bis A-letzteZeile.
Grüße,
Klaus M.vdT.

Anzeige
AW: Autofilter über alle Tabellenblätter
04.04.2013 16:04:14
Toumas
Hallo Klaus,
Die Tabellen in der Datei haben am Anfang noch keinen Autofilter.
Wir erhalten die Datei jeden Tag neu und müssen dann ein paar Sachen rausfiltern.
Da aber von 2 - X Tabellenblätter vorhanden sind, ist es immer eine mühevolle Arbeit, jedes mal
die Zellen zu markieren, den Filter zu setzen usw.
Danke dir für die schnelle Antwort, ich werde es gleich mal testen.
Viele Grüße
Toumas

Anzeige
AW: Autofilter über alle Tabellenblätter
04.04.2013 16:06:59
Toumas
Hallo Klaus,
Makro funktioniert, das Lustige ist, dass jedoch auf dem ersten Tabellenblatt kein Filter erscheint...
Viele Grüße
Toumas

AW: Autofilter über alle Tabellenblätter
04.04.2013 16:10:06
Klaus
Hi Toumas,
ich erklär dir das nicht, dass merkst du gleich selbst:
dass jedoch auf dem ersten Tabellenblatt kein Filter erscheint
...
For iWks = 2 To Worksheets.Count
Na?
Grüße,
Klaus M.vdT.

Anzeige
AW: Autofilter über alle Tabellenblätter
04.04.2013 16:08:59
Toumas
Fehler gefunden... war die 2 bei Worksheets.Count
Super...
vielen Dank, einfach Spitze von dir.
viele Grüße
Toumas

Danke für die Rückmeldung! owT.
04.04.2013 16:10:25
Klaus
.

AW: Danke für die Rückmeldung! owT.
04.04.2013 16:16:05
Toumas
Hallo Klaus,
sorry zu früh gefreut....
Aber ich vermute der Fehler liegt an mir. (da es in der Testdatei bei mir super lief)
Da ich das Makro in die eigentliche Datei nicht einbauen kann, habe ich es in einer extra Exceldatei abgespeichert. So öffne ich beide und lasse das Makro in der Datei laufen, bei der ich die Filter benötige.
Jetzt passiert folgendes.
Das Makro läuft auch einwandfrei darüber.
Allerdings setzt er mir immer nur in der Spalte A den Filter und setzt bei diesen gleich jeden Haken raus.
Was mache ich da falsch ?
Viele Grüße
Toumas

Anzeige
AW: Danke für die Rückmeldung! owT.
04.04.2013 16:24:30
Toumas
erledigt... habe den Fehler selbst gefunden...
so langsam lerne ich dazu ;-)

Forumthreads zu verwandten Themen

Autofilter in allen Tabellenblätter übernehmen
thoemmy

Hallo VBA Gemeinde
Ich habe ein Excel workbook mit 12 sheets.
In jedem Sheet ist in Spalte A bis C ein Autofilter (also 3 Autofilter pro sheet) gesetzt.
Nun möchte ich dass beim auswählen eines Autofilter, in allen anderen Tabellenblätter auch dieses Autofilter aktiv ist. Wie lässt...
11.05.2009 11:32:33
Thread-ID: 1074298
3 Beiträge
VBA alles löschen am XDatum ;-) ?
Marcy

Hallo,
ist es möglich mit VBA einen Streich zu spielen?
Ich habe einem Kollegen eine recht umfangreiche (für meine Verhältnisse :-) ) Tabelle gemacht.
Diese wollte ich dem zum Test zuschicken, dass er mal etwas damit rum spielen kann.
Jetzt fände ich es recht lustig, wenn z.B. a...
04.03.2011 12:45:37
Thread-ID: 1204216
14 Beiträge
VBA Code für Filter, Formatierung, Löschen
Padinjo

Hallo zusammen,
die Suche hat leider nichts brauchbares ergeben, deswegen versuch ich mein Glück in einem neuen Thema.
Vorab zur Info:
Ich habe eine Excel Datei, die durch eine Wenn-Formel sich bestimmte Zeilen aus einer anderen Datei zieht - Abhängig vom dem jeweiligen Datum das...
28.09.2011 09:20:11
Thread-ID: 1231781
10 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
Anzeige
VBA Tabelle filtern
Bettina

Hallo zusammen,
ich hoffe Ihr könnte mir weiterhelfen.
Zur Problemstellung:
In der Tabelle "Daten" werden per Userform unterschiedliche Daten eingegeben.
z.B. In Spalte B stehen Fabrikate, in Spalte C Modell, in Spalte D Größe usw.
Nun möchte ich, dass über ein weiteres User...
08.07.2015 12:27:07
Thread-ID: 1435253
2 Beiträge
Anzeige
VBA: Tabelle filtern und Dateien erstellen
AlexK

Hallo Leute,
ich werde nicht schlau aus meinen Suchen im Netz:
Ich habe eine Tabelle, die Namen in der Spalte A und die Herkunft der Personen mit den jeweiligen Namen als Stadt in Spalte D enthält.
Nun will ich diese Tabelle filtern nach der Stadt und mit den Filterergebnissen Datei...
08.06.2016 18:38:37
Thread-ID: 1497791
7 Beiträge
VBA alle doppelten Zeilen löschen
Mimi

Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt v...
06.07.2016 13:00:14
Thread-ID: 1502856
7 Beiträge
Anzeige
Spezialfilter aus mehreren Tabellen VBA
Luna

Hola liebes Forum da bin ich wieder.
Ich habe mehrere Tabellen von verschiedenen Maschinen wo ich die Wartungsarbeiten mit MaschinenNr., Datum Anfang, Datum Ende, Zeit, Name und Art der Wartung eingebe. Diese möchte ich nun filtern. Ich habe mir dazu ein Makro gebaut welches aber nicht fun...
15.10.2016 21:43:32
Thread-ID: 1519844
10 Beiträge
Alle Werte in gefilterter Tabelle löschen
Kailash

Hallo Excel Freunde!
Habe eine intelligente Tabelle, die mit dem Autofilter gefiltert ist.
Nun möchte ich ALLE Werte in der ersten Spalte löschen, nicht nur die sichtbaren Werte.
Wie macht man das?
Selber weiss ich nur mit ner Schleife. For each...
Bei 2000-3000 Zeilen dauer...
27.04.2018 18:07:06
Thread-ID: 1621917
3 Beiträge
Autofilter in allen selektierten Tabellenblättern
lalelu23

Hallo liebes Forum,
ich habe einen VBA Code geschrieben, der in allen selektierten Tabellenblättern in Spalte AG alles filtern soll, was nicht 0 ist. Der Code funktioniert auch, allerdings läuft er aufgrund der Größe der Datei und der Datenmengen relativ langsam. Daher wollte ich euch f...
24.10.2018 11:34:22
Thread-ID: 1653246
2 Beiträge
VBA > Tabellen mit/ohne Filter verarbeiten
Matthias

Ich bin noch VBA-Anfänger und möchte mehrere Tabellen mit der gleichen Struktur verarbeiten. Diese unterscheiden sich nur dadurch, dass mal die Filter gesetzt sind und mal nicht. Die Inhalte weichen natürlich auch ab :-)
Zum Verarbeiten von gefilterten Tabellen habe ich den folgenden Code p...
16.08.2019 12:33:19
Thread-ID: 1707969
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige