Tabellenfilter mit VBA aktivieren/deaktivieren

[Thomy90]

Hallo zusammen,
 
ich grübele schon seit Stunden an folgendem Problem und finde leider keine Lösung, die sich mit meinen Kenntnissen aufsetzen ließe:

Auf einem Tabellenblatt habe ich mehrere Tabellen, die alle in Spalte C anfangen, aber unterschiedlich viele Spalten aufweisen (siehe unten).
Bis auf eine einzige Tabelle, die ich hier ignorieren möchte, stehen bei jeder Tabelle in Spalte C diverse Namen (z.B. Typ 01, Typ 02, Typ 03, Typ 04) nach denen ich alle Tabellen filtern möchte.

Mein Ziel ist verschiedene Schaltflächen zu erzeugen, mit denen ich per Knopfdruck nach Typ 01, Typ 02 etc. alle relevanten Tabellen filtern kann.
Zudem hätte ich gerne eine Schaltfläche, die alle Filter in dem Tabellenblatt wieder zurücksetzt.

Ich habe es geschafft, eine Schaltfläche zu erstellen, die jedoch nur die erste Tabelle filtert. Meine VBA Kenntnisse reichen leider nicht aus, um alle restlichen Tabellen in dem Blatt „anzusprechen“.

Die einzelnen (relevanten) Tabellenüberschriften haben folgende Koordinaten:
-          C22:AY22
-          C74:Q74
-          C129:R129
-          C161:Q161
-          C194:V194
-          C226:O226
-          C261:S261
-          C291:M291
-          C323:K323

Ich hoffe, ich konnte mich einigermaßen klar ausdrücken und meine Problematik schildern.

Vielen herzlichen Dank vorab an all die, die sich Gedanken dazu machen.

Freundliche Grüße
Thomas

[WillWissen]

Hi Thomas,

so ganz klar wird mir nicht, was du wo eingetragen hast, wo welche Überschriften sind und was du als Ergebnis haben willst. Hierzu solltest du uns eine Beispieltabelle (anonymisiert!!), die aber dem Original gleichen soll, hochladen. Bei Klick auf das farbige Wort findest du eine Anleitung dazu.

Ich habe zwar einen Verdacht, wie deine Tabelle aussehen mag. Sollte sich dieser bestätigen, ist deine Tabelle - seeehhr vorsichtig ausgedrückt - suboptimal.

[Thomy90]

Danke für die schnelle Rückmeldung!

Im Anhang findest Du 3 Tabellen in einem Tabellenblatt, die jetzt alle via Schaltflächen nach Typ 01, Typ 02, Typ 03 und Typ 04 gefiltert werden sollen. Zudem soll es einen Button geben, der den eingestellten Filter wieder rückgängig macht (d.h. auf die Ausgangslage zurückstellt).

Falls noch weitere Informationen benötigt werden, versuche ich diese alsbald zur Verfügung zu stellen!

Vielen Dank!

[WillWissen]

Hi,

warum fügst du deine Einzeltabellen nicht zu einer gesamten zusammen? Ich schrieb doch bereits, dass nach meinem Dafürhalten deine Tabelle suboptimal ist. Könnte so ein Schuh daraus werden

Tabelle1

	B	C	D	E	F	G	H	I	J
7
8		Typ	Datum	Kunde	Produzierte Menge	Qualität	Verkauft [Ja/Nein]	Zufrieden [Ja/Nein]
9		Typ 01	20.10.2013		10	A	Ja	Ja
10		Typ 02	03.03.2015		2	B	Ja	Ja
11		Typ 03	04.02.2014		33	A	Nein
12		Typ 04	03.01.2015		4	C	Ja	Nein
13		Typ 01	07.05.2015	Meier
14		Typ 02	03.02.2014	Müller
15		Typ 03	05.03.2013	Schmidt
16		Typ 04	01.01.2014	Bauer
17

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Nun kannst du doch nach Lust und Laune filtern.

[Thomy90]

Leider sind die Tabellen vorgegeben...

Nur die Handhabung soll nun erleichtert werden :(

[snb]

Vielleicht

Code:

Sub M_snb()
  for each ar in columns(3).specialcells(2).areas
    ar.currentregion.showalldata
  next
End Sub

[Thomy90]

[quote pid='25696' dateline='1444726878']
Hi,
Ich nehme an, dass dieser Befehl die Filter auf der Seite wieder aufheben soll.
Leider funktioniert der Code bei mir nicht :(

Code:

Sub M_snb()
 for each ar in columns(3).specialcells(2).areas
   ar.currentregion.showalldata
 next
End Sub

[/quote]

[Kuwer]

Hallo Thomas,

teste mal so:

Code:

Sub Filter_02()
 Dim oLO As ListObject
 For Each oLO In ActiveSheet.ListObjects
   oLO.Range.AutoFilter Field:=1, Criteria1:="Typ 02"
 Next oLO
End Sub

Sub Filter_Aus()
 Dim oLO As ListObject
 For Each oLO In ActiveSheet.ListObjects
   oLO.AutoFilter.ShowAllData
 Next oLO
End Sub

Gruß Uwe

[snb]

Code:

Sub M_snb()
   For Each it In Sheet1.ListObjects
      it.ShowAutoFilter = False
    Next
End Sub

[Thomy90]

@Kuwer & snb

Vielen Dank! Eure codes funktionieren. Großartig!

Kennt ihr vielleicht beim Code, der den Filter wieder zurücksetzt, noch eine Ergänzung, dass gruppierte Zeilen nicht "ausgeklappt" werden bzw. "rückgruppiert" werden?

Manche Tabellen sind nämlich gruppiert, damit man viele leere Zeilen nicht sieht.