Wie zählt man die Anzahl der sichtbaren Arbeitsblätter in einer Arbeitsmappe?
In einer großen Arbeitsmappe mit mehreren Arbeitsblättern sind einige Blätter sichtbar und andere ausgeblendet. In einigen Fällen müssen Sie möglicherweise die Gesamtzahl der sichtbaren Arbeitsblätter der Arbeitsmappe zählen. Wie können Sie dies in kurzer Zeit tun? Hier stelle ich Ihnen einige Tricks vor, um schnell die Anzahl der sichtbaren Arbeitsblätter in einer Arbeitsmappe zu zählen.
Anzahl der sichtbaren Arbeitsblätter nur mit VBA zählen
Anzahl der sichtbaren/ausgeblendeten/aller Arbeitsblätter mit Kutools für Excel zählen
Anzahl der sichtbaren Arbeitsblätter nur mit VBA zählen
In Excel können Sie anstatt die sichtbaren Arbeitsblätter einzeln zu zählen, VBA verwenden, um schnell die Anzahl der sichtbaren Arbeitsblätter zu ermitteln.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen, und klicken Sie dann auf Einfügen > Modul, um ein neues Modul zu öffnen.
2. Fügen Sie den folgenden VBA-Code in das Modulfenster ein.
VBA: Anzahl der sichtbaren Arbeitsblätter einer Arbeitsmappe zählen
Sub VisibleSheetsCount()
'UpdatebyKutoolsforExcel20150909
Dim xSht As Variant
Dim I As Long
For Each xSht In ActiveWorkbook.Sheets
If xSht.Visible Then I = I + 1
Next
MsgBox I & " sheets are visible", , "Kutools for Excel"
End Sub
3. Klicken Sie auf die Schaltfläche Ausführen. Ein Dialogfeld wird angezeigt, das Ihnen die Anzahl der sichtbaren Arbeitsblätter mitteilt.
Anzahl der sichtbaren/ausgeblendeten/aller Arbeitsblätter mit Kutools für Excel zählen
Wenn Sie sich mit VBA nicht auskennen, können Sie die Navigationsleiste von Kutools für Excel verwenden, um schnell die Anzahl der sichtbaren, ausgeblendeten und aller Arbeitsblätter anzuzeigen.
1. Aktivieren Sie die Arbeitsmappe, deren sichtbare Arbeitsblätter Sie zählen möchten, und klicken Sie auf Kutools > Navigation. Siehe Screenshot:
2. Die Navigationsleiste erscheint auf der linken Seite des aktuellen Arbeitsblatts. Klicken Sie auf den Tab Arbeitsmappe & Blatt, um zum Abschnitt Arbeitsmappe & Blatt zu gelangen. Sie können die Anzahl der sichtbaren, ausgeblendeten und aller Arbeitsblätter (einschließlich sichtbarer und ausgeblendeter) am unteren Rand des Fensters anzeigen. Siehe Screenshot:
Wenn Sie die Navigationsleiste ausblenden möchten, klicken Sie einfach auf Kutools > Navigation, um sie zu deaktivieren.
Die Navigationsleiste von Kutools für Excel ist leistungsstark. Mit ihr können Sie die Liste der Arbeitsblätter, die Liste der Bereichsnamen, die Liste der Spaltenüberschriften anzeigen und auch Bereiche, Bilder und Formeln als Autotexte hinzufügen. Darüber hinaus können Sie ein Wort über die ausgewählten Arbeitsblätter hinweg suchen und ersetzen. Klicken Sie hier, um mehr über die Navigationsleiste zu erfahren.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.





- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins