Sub tt()
Dim wks As Worksheet
On Error GoTo tt_Error
For Each wks In ThisWorkbook.Worksheets
wks.Visible = wks.Range("A1") "x"
Next wks
On Error GoTo 0
Exit Sub
tt_Error:
MsgBox "Error " & Err.Number & vbLf & " (" & Err.Description & _
") in procedure tt of Modul Modul1"
End Sub
Um ein Excel-Tabellenblatt auszublenden, wenn in der Zelle A1 ein bestimmter Wert steht, kannst Du ein einfaches VBA-Makro verwenden. Befolge diese Schritte:
Öffne Deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke im Menü auf "Einfügen" und wähle "Modul".
Füge den folgenden VBA-Code in das Modul ein:
Sub tt()
Dim wks As Worksheet
On Error GoTo tt_Error
For Each wks In ThisWorkbook.Worksheets
wks.Visible = Not (wks.Range("A1").Value = "x")
Next wks
On Error GoTo 0
Exit Sub
tt_Error:
MsgBox "Error " & Err.Number & vbLf & " (" & Err.Description & _
") in procedure tt of Modul Modul1"
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, um das Makro auszuführen, und wähle das Makro tt aus.
Wenn in der Zelle A1 eines der Tabellenblätter ein "x" steht, wird dieses Tabellenblatt ausgeblendet.
Fehler: "Error in procedure"
Dieser Fehler tritt auf, wenn das Makro auf ein nicht existierendes Tabellenblatt zugreifen möchte. Überprüfe, ob alle Tabellennamen korrekt sind.
Das Makro funktioniert nicht
Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu "Datei" > "Optionen" > "Trust Center" und aktiviere die Makros.
Wenn Du kein VBA verwenden möchtest, kannst Du auch manuell Tabellenblätter ausblenden:
Um ein ausgeblendetes Tabellenblatt wieder einzublenden, gehe zu einem sichtbaren Tabellenblatt, rechtsklicke und wähle "Einblenden".
Wenn Du beispielsweise mehrere Tabellenblätter hast, die jeweils in Zelle A1 unterschiedliche Werte haben, kannst Du mithilfe des obigen Makros alle Tabellenblätter ausblenden, die ein "x" enthalten. Dies ist besonders nützlich, wenn Du viele Daten verwalten und nur relevante Informationen anzeigen möchtest.
If-Bedingung erweiterst.Workbook_Open, um die Sichtbarkeit beim Öffnen der Datei automatisch zu setzen.1. Wie kann ich ein ausgeblendetes Tabellenblatt wieder sichtbar machen?
Du kannst ein ausgeblendetes Tabellenblatt wieder einblenden, indem Du mit der rechten Maustaste auf einen anderen Tab klickst und "Einblenden" wählst. Wähle dann das ausgeblendete Blatt aus der Liste.
2. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten aktuellen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen