Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1304to1308
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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.

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 ;-)

311 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
13
9
8
5
1
6
6
9
2
1
1
1
1
3
1
2
1
2
1
5
1
3
3