Filterung aller Tabellen in Datei abschalten

Question

Hallo Makro-Spezies,

das folgende Makro steht bisher in einer Datei, in "Diese Arbeitsmappe".
Ich möchte es in Zukunft in ein AddIn einbinden. Es soll dann immer in jeder Datei in allen vorhandenen Tabellen ausgeführt werden.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
If Worksheets("Tabelle1").FilterMode Then Worksheets("Tabelle1").ShowAllData
End Sub

Answer 1

Hallo woher,

nachfolgender Code blendet in allen Arbeitsmappen in allen Tabellenblättern alle gefilterten Daten ein.

Dim intWorkbooks As Integer
Dim intSheets As Integer
For intWorkbooks = 1 To Workbooks.Count
For intSheets = 1 To Workbooks(intWorkbooks).Sheets.Count
If Workbooks(intWorkbooks).Sheets(intSheets).FilterMode Then _
Workbooks(intWorkbooks).Sheets(intSheets).ShowAllData
Next intSheets
Next intWorkbooksDa aus Deiner etwas wagen Fragestellung nicht hervorgeht, ob Du das so meintest, also in allen geöffneten Arbeitsmappen, habe ich den Code so erstellt. Wenn das nur in einer Datei passieren soll, dann musst Du die entsprechenden Stellen im Code löschen.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Oliver,
vielen Dank für die schnelle Antwort.
An mehrere geöffnete Datei hatte ich im Moment der Fragestellung gar nicht gedacht. Ich werde den Code mal so testen wie er ist.
Vermutlich sollte ich noch mit: "Sreenupdating = False" ergänzen.
mfg
Wolfgang

Answer 3

Hallo Wolfgang,

kannst Du gerne machen, aber das Deaktivieren der Bildschirmaktivität (Application.ScreenUpdating= False) bringt Dir aber hier keinerlei Vorteile.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hallo Oliver,
das mit dem ScreenUpdate war einfach eine spontane Vermutung.
Immerhin spricht das Makro diverse Tabellen in mehreren Dateien an. Spontan habe ich da ein Bildschirmflackern gewissermaßen für zwingend gehalten.
mfg
Wolfgang