Wie ermittelt man schnell die Anzahl aller geöffneten Arbeitsmappen?

Manchmal öffnen Sie möglicherweise mehrere Arbeitsmappen gleichzeitig, um daran zu arbeiten. Haben Sie sich aber schon einmal vorgestellt, wie viele Arbeitsmappen insgesamt gerade geöffnet sind? In diesem Artikel zeige ich Ihnen einige praktische Tricks, um die Anzahl der geöffneten Arbeitsmappen sowie der Arbeitsblätter in der aktuellen Arbeitsmappe zu ermitteln.

Anzahl der geöffneten Arbeitsmappen mit VBA zählen

Anzahl der Arbeitsblätter in Aktuelle Arbeitsmappe mit Kutools für Excel zählen

Anzahl der geöffneten Arbeitsmappen mit VBA zählen

Hier erhalten Sie einen Makrocode, um die Anzahl der geöffneten Arbeitsmappen zu ermitteln.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das leere Skript ein. Siehe Screenshot:

Code: Zählen Sie die Anzahl der geöffneten Arbeitsmappen.

Sub CountBooks()
      MsgBox Workbooks.Count
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Es erscheint ein Dialogfeld, das Ihnen die Anzahl der geöffneten Arbeitsmappen anzeigt.

Anzahl der Arbeitsblätter in Aktuelle Arbeitsmappe mit Kutools für Excel zählen

Das Zählen der Anzahl von Arbeitsmappen wird in Excel selten benötigt; meist möchten Sie stattdessen die Anzahl der Arbeitsblätter in der aktuellen Arbeitsmappe ermitteln. Um diese Aufgabe schnell zu erledigen, können Sie die Kutools für Excel-Navigation verwenden.

Klicken Sie auf Kutools > Navigation, um die Navigation zu aktivieren, und anschließend auf das Symbol Arbeitsmappe & Arbeitsblatt, um den Bereich zu erweitern. Nun werden alle geöffneten Arbeitsmappen im oberen Teil des Bereichs angezeigt. Wählen Sie eine Arbeitsmappe aus – die zugehörigen Arbeitsblattnamen erscheinen im unteren Bereich, und die Anzahl der Arbeitsblätter wird unten angezeigt. Siehe Screenshot:

Beste Office-Produktivitätstools

🤖	KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
	Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
	Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
	Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
	Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
	Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
	Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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...

Weitere Details zu Kutools für Excel...Kostenloser Download...

---

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!

Weitere Details zu Office Tab...Kostenloser Download...

---

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

Weitere Details zu Kutools for Office...Kostenloser Download...