Anzeige
Archiv - Navigation
1748to1752
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
Inhaltsverzeichnis

Alle Dateien aufeinmal ausblenden

Alle Dateien aufeinmal ausblenden
10.04.2020 17:17:27
Sabrina
Guten Tag
Ich möchte per VBA alle geöffneten Dateien aufeinmal ausblenden.
Bislang mache ich das für jede Datei so
Windows("Datei.xlsm").Visible = False

Geht das auch dass mit einem Makro alle ausgeblendet werden?
Am Besten alle bis auf eine.
Liebe Grüße
Sabbel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien aufeinmal ausblenden
10.04.2020 17:22:36
Oberschlumpf
Hi Sabrina,

Sub Test()
Dim lwbAll As Workbook
For Each lwbAll In Workbooks
If lwbAll.Name  "NameDerDateiDieSichtbarBleibenSoll" & ".xlsm" Then
Windows(lwbAll.Name).Visible = False
Ende If
Next
End Sub

Hilfts?
Wenn nicht, was genau passiert?
Fehlermeldung?
In welcher Codezeile bleibt der Code stehen?
Ciao
Thorsten
AW: Alle Dateien aufeinmal ausblenden
10.04.2020 20:14:23
Sabrina
Hi Thorsten
vielen Dank .. funktioniert so wie ich es mir vorgestellt habe.
Liebe GRüße
Sabbel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige