Wie können Sie prüfen, ob eine bestimmte Arbeitsmappe in Excel geöffnet ist?
Möglicherweise haben Sie mehrere Arbeitsmappen gleichzeitig geöffnet. Wenn Sie prüfen möchten, ob eine bestimmte Arbeitsmappe aktuell geöffnet ist, bietet VBA eine einfache Lösung. In dieser Anleitung erfahren Sie, wie Sie mithilfe eines VBA-Codes schnell feststellen können, ob eine Arbeitsmappe geöffnet ist oder nicht.
Prüfen, ob eine Arbeitsmappe in Excel geöffnet ist oder nicht
Prüfen, ob eine Arbeitsmappe in Excel geöffnet ist oder nicht
So prüfen Sie, ob eine Arbeitsmappe in Excel geöffnet ist:
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul.
2. Kopieren Sie als Nächstes den folgenden VBA-Code in den Editor.
VBA-Code: Prüfen, ob eine Arbeitsmappe geöffnet ist
Sub TrimExcessSpaces()
Dim xWBName As String
Dim xWb As Workbook
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
Set xWb = Application.Workbooks(xWBName)
If xWb Is Nothing Then
MsgBox "The Workbook is not open!"
Else
MsgBox "The Workbook is open!"
End If
End Sub3. Drücken Sie nun die Taste F5, um den Code auszuführen. Geben Sie im erscheinenden Dialogfeld KutoolsforExcel den Namen der Arbeitsmappe ein, die Sie prüfen möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
Wenn die angegebene Arbeitsmappe geöffnet ist, erscheint ein Dialogfeld mit der Meldung, dass die Arbeitsmappe geöffnet ist;
Andernfalls erscheint das folgende Dialogfeld, wenn die angegebene Arbeitsmappe nicht geöffnet ist.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins