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.