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

aus allen Tabellen Filter entfernen?

Forumthread: aus allen Tabellen Filter entfernen?

aus allen Tabellen Filter entfernen?
16.06.2022 13:20:05
Fred
Hallo Excel Profis,
ich habe auf mehreren Sheets formatierte Tabellen. Diese filter ich nach Interesse.
Meine Frage:
Gibt es über VBA die Möglichkeit, dass alle Filter aus jeder formatierten Tabelle "in einen Rutsch" entfernt werden?
Gruss
Fred
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus allen Tabellen Filter entfernen?
16.06.2022 13:40:14
RPP63
Moin!
"In einem Rutsch" nicht, aber per Schleife über alle Sheets und Listobjects
Gruß Ralf
AW: aus allen Tabellen Filter entfernen?
16.06.2022 14:04:18
Fred
Hallo Ralf,
kannst du mir einen "Beispielcode" schreiben,- mit 2 Sheets und deren form. Tabellen
Sheet("Import").ListObjects("tab_Import")
Sheet("Zielsetzung").ListObjects("tab_Zielsetzung")
.. den ich dann entsprechend erweitern kann?
Gruss
Fred
Anzeige
AW: aus allen Tabellen Filter entfernen?
16.06.2022 14:44:04
Raimund
Hi Fred
Teste mal bitte:

Sub Clear_filter()
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End 


Sub
Gruß
Raimund
Anzeige
AW: aus allen Tabellen Filter entfernen?
16.06.2022 15:03:29
Fred
Hallo Raimund,
FANTASTISCH !!
Vielen, Vielen Dank für die professionelle Lösung!
Gruss
Fred
;

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
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
Autofilter über alle Tabellenblätter
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, _ Crit...
04.04.2013 15:54:39
Thread-ID: 1307289
9 Beiträge
Anzeige
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
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
Tabelle resetten / Autofilter entfernen
chattie

Hallo!
ich habe ein recht unübersichtliche Tabelle, an der mehrere Personen Arbeiten. Deshalb habe ich Buttons (VBA) eingerichtet, die immer die nicht benötigten Spalten ausblenden. Es (natürlich) auch einen Button, der alle Spalten einblendet. Nun habe ich noch Autofilter, die gesetzt werde...
27.02.2003 20:32:00
Thread-ID: 225284
2 Beiträge
Anzeige
Makro für "alle Filter entfernen"
Dine
Hallo,
mein Makro funktioniert nicht ganz. Was muss ich ändern? Das Makro soll alle Filter entfernen.
Es sind viele Spalten mit Autofilter vorhanden in der Zeile 4, das Makro soll alle Autofilter auf (Alle) setzen. Das Makro soll automatisch bis zum letzten Spalte mit Autofilter springen.
21.02.2005 15:37:59
Thread-ID: 572937
3 Beiträge
Anzeige
Pivot Tabelle_alle Filter aufheben
Andreas

Hallo liebe Excel Fans,
ich habe ein Probleme mit Pivot Tabellen. In meiner neuen Funktion muß ich mit sehr umfangreichen Pivot Tabellen arbeiten. Zum Teil sind dort schon in einigen Feldern Filterungen eingestellt. Aufgrund der Masse an Feldern einer solchen Tabelle ist es z.T. aufwändig...
09.08.2007 10:19:13
Thread-ID: 895006
2 Beiträge
alle Filter "herausnehmen"
Hüseyin

Hallo zusammen,
ich möchte (im VBA) definieren, dass beim öffnen einer Mappe alle Filter automatisch herausgenommen werden (für den Fall, dass jemand beim letzten speichern Filter drin hatte).
Man kanns natürlich auch umgekehrt machen, dass bei jedem speichern die Filter herausgenommen...
07.05.2008 12:07:00
Thread-ID: 975555
13 Beiträge
VBA alles nach Chr(10) löschen
Marco
Hallo zusammen
Eigentlich (denke ich zumindest) eine simple Angelegenheit, aber ich komme einfach nicht drauf, auch nicht mir der Hilfe von Google...
Wie kann ich alles nach dem Zeilenumbruch (Chr10)) in einer Zelle löschen lassen, damit ich sozusagen nur mit dem "Titel" der Zelle weitermach...
10.03.2021 07:20:09
Thread-ID: 1818788
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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