Wie kann man schnell die Anzahl der ausgeblendeten Arbeitsblätter in Excel zählen?
Wenn Sie eine große Arbeitsmappe mit Hunderten von Arbeitsblättern haben und einige davon ausgeblendet sind, möchten Sie aus bestimmten Gründen möglicherweise wissen, wie viele Arbeitsblätter in der Arbeitsmappe ausgeblendet sind. Wie können Sie dies tun, anstatt sie einzeln zu zählen? Hier sind zwei Tricks, mit denen Sie die ausgeblendeten Arbeitsblätter auf einmal schnell zählen können.
Anzahl der ausgeblendeten Blätter mit VBA
Anzahl der ausgeblendeten/sichtbaren Blätter mit Kutools für Excel
Ausgeblendete Blätter löschen oder alle ausgeblendeten Blätter mit Kutools für Excel einblenden
Anzahl der ausgeblendeten Blätter mit VBA
Ich stelle einen VBA-Code vor, der ein Dialogfeld öffnet, das Ihnen die Anzahl der ausgeblendeten Arbeitsblätter in einer Arbeitsmappe mitteilt.
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 der ausgeblendeten Blätter.
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 F5-Taste, um den Code auszuführen, und ein Dialogfeld erscheint, das Ihnen die Anzahl der ausgeblendeten und sichtbaren Arbeitsblätter anzeigt.
Anzahl der ausgeblendeten/sichtbaren Blätter mit Kutools für Excel
Wenn Sie sich mit VBA nicht auskennen, können Sie Kutools für Excel kostenlos installieren, um die Anzahl der Blätter, ausgeblendeten Blätter und sichtbaren Blätter auf einen Blick zu zählen.
Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Klicken Sie auf Kutools > Navigation, um den Bereich anzuzeigen. Siehe Screenshot:
2. Klicken Sie dann auf die Schaltfläche Arbeitsmappe & Blatt, um die Bücher und Arbeitsblätter aufzulisten, und gehen Sie zum unteren Ende des Bereichs, wo Sie die Anzahl der Gesamt-, ausgeblendeten und sichtbaren Blätter finden können.
Tipp: Wenn Sie den Navigationsbereich nicht mehr benötigen, klicken Sie erneut auf Kutools > Navigation, um ihn auszublenden.
Ausgeblendete Blätter löschen oder alle ausgeblendeten Blätter mit Kutools für Excel einblenden
Mit Kutools für Excel können Sie auch alle ausgeblendeten Blätter mit einem Klick entfernen.
1. Wenn Sie alle ausgeblendeten Blätter einblenden möchten, klicken Sie einfach auf Kutools > Einblenden/Ausblenden > Alle ausgeblendeten 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:
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