So zeigen sie alle blätter mit vba an (mit beispiel)

Sie können die Visible- Eigenschaft in VBA verwenden, um ein Blatt in einer Excel-Arbeitsmappe anzuzeigen.

Um alle Blätter in einer Arbeitsmappe anzuzeigen, können Sie die folgende Syntax verwenden:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Mit einer einfachen For Each- Schleife und der Angabe von Visible = True weisen wir Excel an, alle Blätter in der Arbeitsmappe anzuzeigen.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So zeigen Sie alle Blätter mit VBA an

Angenommen, wir haben eine Excel-Arbeitsmappe mit vier Blättern:

Angenommen, wir klicken mit der rechten Maustaste auf Sheet4 und dann auf Ausblenden :

Nehmen wir an, wir wiederholen diesen Vorgang mit Sheet2 , sodass die einzigen sichtbaren Blätter jetzt Sheet1 und Sheet3 sind.

Nehmen wir an, wir möchten VBA verwenden, um alle Blätter in der Arbeitsmappe anzuzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Sobald dieses Makro ausgeführt wird, werden alle Blätter in der Arbeitsmappe angezeigt:

Hinweis : Die vollständige Dokumentation für die Visible- Eigenschaft in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So finden Sie die zuletzt verwendete Spalte
VBA: So frieren Sie Fenster ein