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 Sub

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