Wie können Sie alle geöffneten Arbeitsmappen auflisten und nahtlos zwischen ihnen wechseln?
Microsoft Excel ermöglicht es Ihnen, mehrere Arbeitsmappen gleichzeitig zu öffnen, doch ist es nicht einfach, zwischen allen geöffneten Arbeitsmappen zu wechseln. Daher möchten Sie möglicherweise alle geöffneten Arbeitsmappen in einer Liste anzeigen lassen, um in Excel problemlos zwischen diesen wechseln zu können. In diesem Artikel zeigen wir Ihnen, wie Sie alle geöffneten Arbeitsmappen zur einfachen Navigation in Excel auflisten können.
Einfaches Auflisten aller geöffneten Arbeitsmappen mit VBA
Alle geöffneten Arbeitsmappen auflisten und mithilfe von VBA problemlos zu einer Arbeitsmappe wechseln
Alle geöffneten Arbeitsmappen auflisten und mithilfe eines leistungsstarken Tools problemlos zu einer Arbeitsmappe wechseln
Einfaches Auflisten aller geöffneten Arbeitsmappen mit VBA
In diesem Abschnitt erfahren Sie, wie Sie mithilfe von VBA-Code alle geöffneten Arbeitsmappen in Excel auflisten.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie im geöffneten Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul.
2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein.
VBA: Alle geöffneten Arbeitsmappenname in Excel auflisten
Sub ListWorkbooks()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Range("A1")
xNum1 = Application.Workbooks.Count
For i = 1 To xNum1
xNum2 = Application.Workbooks(i).Sheets.Count
WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
For j = 1 To xNum2
WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
Next
Next
End Sub3. Führen Sie den VBA-Code aus, indem Sie die Taste F5 drücken. Geben Sie im Dialogfeld KutoolsforExcel eine Zelle für die Platzierung der Arbeitsmappenliste an, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
Anschließend werden alle geöffneten Arbeitsmappen samt ihren zugehörigen Arbeitsblättern aufgelistet.
Ist der Umgang mit VBA-Code für Sie schwierig? Dann erzielen Sie dasselbe Ergebnis mit der dritten Methode – ganz einfach per Mausklick.
Alle geöffneten Arbeitsmappen auflisten und mithilfe von VBA problemlos zu einer Arbeitsmappe wechseln
Wenn Sie alle Arbeitsmappen auflisten möchten, um problemlos zwischen ihnen zu wechseln, verwenden Sie bitte den folgenden VBA-Code:
1. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applicationszu öffnen. Klicken Sie im Fenster Microsoft Visual Basic for Applicationsauf Einfügen>Modul.
2. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das geöffnete Modulfenster ein.
VBA-Code: Alle geöffneten Arbeitsmappen auflisten und zu einer Arbeitsmappe wechseln
Sub SelectWB()
Dim xWBName As String
Dim xWb As Workbook
Dim xSelect As String
For Each xWb In Application.Workbooks
xWBName = xWBName & xWb.Name & vbCrLf
Next
xTitleId = "KutoolsforExcel"
xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
Application.Workbooks(xSelect).Activate
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Daraufhin erscheint das Dialogfeld KutoolsforExcel mit einer Liste aller geöffneten Arbeitsmappen. Wenn Sie zu einer bestimmten Arbeitsmappe wechseln möchten, geben Sie den Namen der Arbeitsmappe in das Feld ein und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
Alle geöffneten Arbeitsmappen auflisten und mithilfe eines leistungsstarken Tools problemlos zu einer Arbeitsmappe wechseln
Mithilfe der Navigation von Kutools für Excel werden alle geöffneten Arbeitsmappen automatisch in einem Bereich aufgelistet – so navigieren Sie mühelos zwischen allen geöffneten Arbeitsmappen. Klicken Sie einfach auf eine der geöffneten Arbeitsmappen, und schon wechseln Sie sofort zu dieser Arbeitsmappe.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
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