ChatGPT-Thema: Arbeitsblätter aus-/einblenden

Excel / VBA deutsch: Alle Arbeitsblätter außer dem aktiven Blatt sollen über VBA aus- bzw. eingeblendet werden.

Um alle Arbeitsblätter außer dem aktuellen Arbeitsblatt in VBA aus- oder einzublenden, können Sie eine Schleife verwenden, um durch alle Arbeitsblätter im aktuellen Arbeitsbuch zu iterieren, und dann die Visible-Eigenschaft jedes Arbeitsblatts festlegen.
Hier ist ein Beispiel, wie man alle Arbeitsblätter außer dem aktuellen Arbeitsblatt in VBA ausblenden könnte:

Sub HideAllSheetsExceptActive()

    Dim ws As Worksheet



    ' Iteriere durch alle Arbeitsblätter im aktuellen Arbeitsbuch

    For Each ws In ThisWorkbook.Worksheets

        ' Wenn das aktuelle Arbeitsblatt nicht das aktive Arbeitsblatt ist, blende es aus

        If ws.Name <> ActiveSheet.Name Then

            ws.Visible = xlSheetVeryHidden

        End If

    Next ws

End Sub

Um alle Arbeitsblätter wieder einzublenden, könnte man den obigen Code wie folgt modifizieren:

Sub ShowAllSheets()

    Dim ws As Worksheet



    ' Iteriere durch alle Arbeitsblätter im aktuellen Arbeitsbuch

    For Each ws In ThisWorkbook.Worksheets

        ' Blendet das Arbeitsblatt ein

        ws.Visible = xlSheetVisible

    Next ws

End Sub

Hinweis: Stellen Sie sicher, dass Sie das Microsoft Excel Objektbibliothek-Verweis in Ihrem Projekt hinzugefügt haben, um auf die xlSheetVeryHidden und xlSheetVisible-Konstanten zugreifen zu können. Sie können dies tun, indem Sie im VBA-Editor auf "Extras" > "Verweise" gehen und dann das Kontrollkästchen neben "Microsoft Excel xx.0 Objektbibliothek" (wobei xx für die Excel-Version steht, die Sie verwenden) aktivieren.