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

Alle Excel Mappen außblenden außer best

Forumthread: Alle Excel Mappen außblenden außer best

Alle Excel Mappen außblenden außer best
02.08.2021 18:52:25
Sabbel
Hallo,
ich nutze Excel Office 365.
Ich möchte per VBA alle offenen Arbeitsmappen ausblenden außer Datei1.xlsm und Datei2.xlsm
Kann mir jemand weiterhelfen?
Liebe Grüße
Sabbel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Excel Mappen außblenden außer best
02.08.2021 19:07:28
Nepumuk
Hallo,
so:

Public Sub Ausblenden()
Dim objWorkbook As Workbook
For Each objWorkbook In Workbooks
If objWorkbook.Name  "Datei1.xlsm" And _
objWorkbook.Name  "Datei2.xlsm" Then _
objWorkbook.Windows(1).Visible = False
Next
End Sub
Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

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