Wie ermittelt man schnell die Anzahl der ausgeblendeten Arbeitsblätter in Excel?
Wenn Sie eine große Arbeitsmappe mit Hunderten von Arbeitsblättern haben und einige dieser Blätter ausgeblendet sind, möchten Sie aus bestimmten Gründen wissen, wie viele ausgeblendete Arbeitsblätter sich in der Arbeitsmappe befinden. Wie können Sie dies erreichen, ohne sie einzeln zu zählen? Im Folgenden stelle ich Ihnen zwei Methoden vor, mit denen Sie die Anzahl der ausgeblendeten Arbeitsblätter auf einen Blick ermitteln können.
Ausgeblendete Blätter mit VBA zählen
Ausgeblendete/sichtbare Blätter mit Kutools für Excel zählen
Ausgeblendete Blätter oder Alle Blätter einblenden mit Kutools für Excel löschen
Ausgeblendete Blätter mit VBA zählen
Ich stelle Ihnen einen VBA-Code vor, der ein Dialogfeld öffnet und Ihnen die Anzahl der ausgeblendeten Arbeitsblätter in einer Arbeitsmappe anzeigt.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das neue Modul-Fenster ein.
VBA: Anzahl ausgeblendeter Blätter ermitteln.
Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
"Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend erscheint ein Dialogfeld, das Ihnen sowohl die Anzahl der ausgeblendeten als auch die der sichtbaren Arbeitsblätter anzeigt.
Ausgeblendete/sichtbare Blätter mit Kutools für Excel zählen
Wenn Sie mit VBA nicht vertraut sind, können Sie Kutools für Excel kostenlos installieren, um auf einen Blick die Gesamtanzahl der Blätter sowie die Anzahl der ausgeblendeten und sichtbaren Blätter zu ermitteln.
Nachdem Sie kostenlos installiert habenKutools für Excel, gehen Sie bitte wie folgt vor:
1. Klicken Sie auf Kutools > Navigation, um den Bereich anzuzeigen. Siehe Screenshot:
2. Klicken Sie anschließend auf die Schaltfläche Arbeitsmappe und Blatt, um alle Arbeitsmappen und Arbeitsblätter anzuzeigen. Scrollen Sie dazu einfach zum unteren Rand des Bereichs – dort finden Sie die Gesamtanzahl der Blätter sowie die Anzahl der ausgeblendeten und sichtbaren Blätter.
Tipp: Wenn Sie die Navigation nicht mehr benötigen, klicken Sie erneut auf Kutools > Navigation, um sie auszublenden.
Ausgeblendete Blätter löschen oder alle ausgeblendeten Blätter einblenden mit Kutools für Excel
Mit Kutools für Excel können Sie außerdem alle ausgeblendeten Blätter mit nur einem Klick entfernen.
1. Wenn Sie alle Blätter einblenden möchten, klicken Sie einfach auf Kutools > Anzeigen & Ausblenden > Alle Blätter einblenden.
2. Wenn Sie alle ausgeblendeten Blätter löschen möchten, klicken Sie einfach auf KUTOOLS PLUS > Arbeitsblatt > Alle ausgeblendeten Blätter löschen. Siehe Screenshot:
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