Wie liste ich alle geöffneten Arbeitsmappen auf und wechsle einfach zwischen Arbeitsmappen in Excel?
Mit Microsoft Excel können Sie mehrere Arbeitsmappen gleichzeitig öffnen. Es ist jedoch nicht einfach, zwischen allen geöffneten Arbeitsmappen zu wechseln. Daher möchten Sie möglicherweise alle geöffneten Arbeitsmappen in einer Liste auflisten, um problemlos zwischen diesen Arbeitsmappen in Excel wechseln zu können. In diesem Artikel zeigen wir Ihnen, wie Sie alle geöffneten Arbeitsmappen für eine einfache Navigation in Excel auflisten.
Listen Sie einfach alle geöffneten Arbeitsmappen mit VBA auf
Listen Sie alle geöffneten Arbeitsmappen auf und wechseln Sie mit VBA ganz einfach zu einer Arbeitsmappe
Listen Sie alle geöffneten Arbeitsmappen auf und wechseln Sie mit einem erstaunlichen Tool einfach zu einer Arbeitsmappe
Listen Sie einfach alle geöffneten Arbeitsmappen mit VBA auf
In diesem Abschnitt erfahren Sie, wie Sie einen VBA-Code zum Auflisten aller geöffneten Arbeitsmappen in Excel verwenden.
1. Drücken Sie Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul.
2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein.
VBA: Alle geöffneten Arbeitsmappennamen 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 durch Drücken von aus F5 Schlüssel. In dem KutoolsforExcel Geben Sie im Dialogfeld eine Zelle zum Platzieren der Arbeitsmappenliste an und klicken Sie dann auf OK Taste. Siehe Screenshot:
Anschließend werden alle geöffneten Arbeitsmappen mit entsprechenden Arbeitsblättern aufgelistet.
Schwer zu handhabender VBA-Code? Sie können es durch die erreichen dritte Methode mit Klicks.
Listen Sie alle geöffneten Arbeitsmappen auf und wechseln Sie mit VBA ganz einfach zu einer Arbeitsmappe
Wenn Sie alle Arbeitsmappen auflisten möchten, um problemlos zwischen Arbeitsmappen wechseln zu können, versuchen Sie, die VBA wie folgt zu verwenden:
1. Drücken Sie die Taste Andere + F11 öffnen Microsoft Visual Basic für Applikationen Fenster. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > 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 Schlüssel zum Ausführen des Codes. Dann ein KutoolsforExcel Das Dialogfeld wird mit einer Liste aller geöffneten Arbeitsmappen angezeigt. Wenn Sie zu einer bestimmten Arbeitsmappe wechseln möchten, geben Sie diesen Arbeitsmappennamen in das Feld ein und klicken Sie auf OK Taste. Siehe Screenshot:
Listen Sie alle geöffneten Arbeitsmappen auf und wechseln Sie mit einem erstaunlichen Tool einfach zu einer Arbeitsmappe
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
Mit der Navigationsbereich of Kutools for ExcelAlle geöffneten Arbeitsmappen werden automatisch in einem Bereich aufgelistet, damit Sie problemlos zwischen allen geöffneten Arbeitsmappen navigieren können. Sie müssen nur auf eine der geöffneten Arbeitsmappen klicken, um sofort zu dieser Arbeitsmappe zu navigieren.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
