Wie kann man in Excel alle Arbeitsblätter außer dem angegebenen oder aktiven ausblenden?

Um die Arbeitsmappe übersichtlich und leicht navigierbar zu halten, möchten Sie möglicherweise alle Arbeitsblätter außer dem aktiven in Excel ausblenden. In diesem Artikel zeigen wir Ihnen zwei Methoden, um alle Arbeitsblätter bis auf das angegebene oder aktive in Excel auszublenden.

Alle Arbeitsblätter außer dem angegebenen in Excel mit VBA-Code ausblenden
Alle Arbeitsblätter außer dem aktiven mit Kutools für Excel ausblenden (nur wenige Klicks)

Alle Arbeitsblätter außer dem angegebenen in Excel mit VBA-Code ausblenden

Sie können alle Arbeitsblätter außer dem angegebenen mit VBA-Code in Excel ausblenden. Gehen Sie wie folgt vor.

1. Öffnen Sie in der aktuell geöffneten Arbeitsmappe das Arbeitsblatt, das sichtbar bleiben soll, und drücken Sie gleichzeitig Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Siehe Screenshot:

3. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein.

VBA-Code: Alle Blätter außer dem angegebenen ausblenden

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. Drücken Sie die Taste F5, um den Code auszuführen.

5. Nachdem Sie den Code ausgeführt haben, erscheint ein Dialogfeld mit dem Namen des aktiven Arbeitsblatts, das im Bereich-Feld angezeigt wird, klicken Sie dann auf die Schaltfläche OK.

Dann werden alle Arbeitsblätter sofort ausgeblendet, außer dem aktuellen in Ihrer Arbeitsmappe.

Hinweis: Um die ausgeblendeten Arbeitsblätter anzuzeigen, kopieren Sie bitte den folgenden VBA-Code und fügen Sie ihn in das Modul ein, und drücken Sie dann die Taste F5, um den Code auszuführen.

VBA-Code: Ausgeblendete Arbeitsblätter anzeigen

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Alle Arbeitsblätter außer dem aktiven mit Kutools für Excel ausblenden (nur ein Klick)

Sie können alle Blätter außer dem angegebenen oder aktiven mit nur einem Klick in Excel ausblenden.

1. Wechseln Sie zum angegebenen Blatt, das Sie als einzige in der aktuellen Arbeitsmappe anzeigen möchten.

2. Klicken Sie dann auf Kutools > Anzeigen & Ausblenden > Inaktive Blätter ausblenden.

Dann werden alle Blätter in der aktuellen Arbeitsmappe ausgeblendet, außer dem aktiven.

Hinweis: Wenn Sie alle ausgeblendeten Arbeitsblätter anzeigen möchten, klicken Sie bitte auf Kutools > Anzeigen / Ausblenden > Alle Blätter anzeigen. Siehe Screenshot: