Alle Tabellenblätter ausblenden - Ausnahmen
Schritt-für-Schritt-Anleitung
- Öffne dein Excel-Dokument.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu:
- Klicke im Menü auf
Einfügen > Modul.
- Kopiere den folgenden VBA-Code in das Modul:
Sub Ausblenden()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "XXX" Then 'Ändere "XXX" in den Namen des Blattes, das sichtbar bleiben soll
wks.Visible = xlSheetHidden
End If
Next
End Sub
- Schließe den VBA-Editor.
- Führe das Makro aus:
- Gehe zurück zu Excel und drücke
ALT + F8, wähle Ausblenden und klicke auf Ausführen.
Um mehrere Tabellenblätter auszublenden, musst du die Bedingung anpassen. Der folgende Code berücksichtigt mehrere Blätter:
Sub AusblendenMehrere()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "Tabelle1" And wks.Name <> "Tabelle2" Then 'Füge hier weitere Namen hinzu
wks.Visible = xlSheetHidden
End If
Next
End Sub
Häufige Fehler und Lösungen
Alternative Methoden
Eine andere Methode, um alle Tabellenblätter auszublenden, außer einem bestimmten, ist die Verwendung der xlSheetVeryHidden-Eigenschaft. Diese versteckt die Blätter so, dass sie nicht einmal über das Excel-Menü einsehbar sind.
Sub SehrAusblenden()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "XXX" Then
wks.Visible = xlSheetVeryHidden
End If
Next
End Sub
Praktische Beispiele
- Alle Tabellenblätter außer "Daten" ausblenden:
Sub AusblendenDaten()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "Daten" Then
wks.Visible = xlSheetHidden
End If
Next
End Sub
- Alle Tabellenblätter außer "Bericht" und "Zusammenfassung" ausblenden:
Sub AusblendenBerichtUndZusammenfassung()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "Bericht" And wks.Name <> "Zusammenfassung" Then
wks.Visible = xlSheetHidden
End If
Next
End Sub
Tipps für Profis
-
Schnelle Anpassungen: Wenn du häufig die Blätter, die sichtbar bleiben sollen, änderst, kannst du die Namen in einer Zelle auf dem Arbeitsblatt auflisten und das Makro so anpassen, dass es diese Namen liest.
-
Sicherheit: Wenn du Blätter löschen möchtest, verwende Application.DisplayAlerts = False am Anfang des Codes und setze es am Ende wieder auf True, um Sicherheitsabfragen auszuschalten.
FAQ: Häufige Fragen
1. Wie kann ich alle ausgeblendeten Tabellenblätter wieder einblenden?
Um alle Tabellenblätter wieder sichtbar zu machen, kannst du folgenden Code verwenden:
Sub AlleEinblenden()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Visible = xlSheetVisible
Next
End Sub
2. Was passiert, wenn ich ein Blatt lösche, das ausgeblendet ist?
Wenn du ein ausgeblendetes Blatt löschst, wird es permanent entfernt. Stelle sicher, dass du das richtige Blatt auswählst, bevor du es löscht.