Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon woher vom 30.08.2022, 21:35 Options
Filterung aller Tabellen in Datei abschalten
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
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
Antwort 1 von coros vom 31.08.2022, 04:49 OptionsLösung
Hallo woher,
nachfolgender Code blendet in allen Arbeitsmappen in allen Tabellenblättern alle gefilterten Daten ein.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
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 intWorkbooksMfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von woher vom 31.08.2022, 11:02 Options
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
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
Antwort 3 von coros vom 31.08.2022, 12:34 Options
Hallo Wolfgang,
kannst Du gerne machen, aber das Deaktivieren der Bildschirmaktivität (Application.ScreenUpdating= False) bringt Dir aber hier keinerlei Vorteile.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
kannst Du gerne machen, aber das Deaktivieren der Bildschirmaktivität (Application.ScreenUpdating= False) bringt Dir aber hier keinerlei Vorteile.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Excel Tabellen verknüpfen
Merly 15.06.2009 - 196 Hits - 1 Antwort
Tabellen vergleich
DerHans 06.10.2009 - 178 Hits - 4 Antworten
Tabellen zusammenführen
xxl83 15.12.2009 - 173 Hits - 1 Antwort
Excel Tabellen
GEDY 06.01.2010 - 203 Hits - 2 Antworten
2 tabellen
petruschka 07.01.2010 - 136 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
