Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$A$1" Then Exit Sub
If UCase(Target.Value) = "X" Then Call SheetsHidden
If UCase(Target.Value) = "" Then Call SheetsVisible
End Sub
Sub SheetsHidden()
Dim intTab As Integer
For intTab = ThisWorkbook.Worksheets.Count To 4 Step -1
Worksheets(intTab).Visible = xlVeryHidden
Next wks
End Sub
Öffne Excel und lade die Arbeitsmappe, in der Du die Tabellenblätter ausblenden möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Kopiere und füge den folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If UCase(Target.Value) = "X" Then Call SheetsHidden
If UCase(Target.Value) = "" Then Call SheetsVisible
End Sub
Sub SheetsHidden()
Dim intTab As Integer
For intTab = ThisWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(intTab).Name <> "Tabelle1" And Worksheets(intTab).Name <> "Tabelle2" Then
Worksheets(intTab).Visible = xlVeryHidden
End If
Next intTab
End Sub
Sub SheetsVisible()
Dim intTab As Integer
For intTab = 1 To ThisWorkbook.Worksheets.Count
Worksheets(intTab).Visible = xlSheetVisible
Next intTab
End SubÄndere die Blattnamen in der SheetsHidden-Subroutine, um die spezifischen Blätter auszuwählen, die Du ausblenden möchtest.
Schließe den VBA-Editor und gehe zurück zu Excel.
Teste das Makro, indem Du in Zelle A1 ein "X" eingibst, um die Blätter auszublenden.
Fehler beim Kompilieren: "Ungültiger Verweis auf Next-Steuervariable"
Next-Befehl endet.Tabellenblätter werden nicht ausgeblendet
Excel Tabelle ausgeblendet wieder einblenden funktioniert nicht
SheetsVisible) aufrufst.Eine einfache Möglichkeit, mehrere Tabellenblätter einblenden oder ausblenden, ist die Verwendung der rechten Maustaste:
Diese Methode ist nützlich, wenn Du nicht mit VBA arbeiten möchtest oder eine schnelle Lösung benötigst.
Beispiel 1: Ein bestimmtes Blatt ausblenden
If-Bedingung der SheetsHidden-Sub einfügst.Beispiel 2: Mehrere Blätter einblenden
SheetsVisible-Subroutine auf xlSheetVisible gesetzt werden.Beispiel 3: Umbruchvorschau ausblenden
On Error Resume Next
' Code hier
On Error GoTo 01. Wie kann ich mehrere Tabellenblätter in Excel gleichzeitig einblenden?
Du kannst das Makro SheetsVisible verwenden, um alle Tabellenblätter gleichzeitig sichtbar zu machen.
2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der gegebene VBA-Code sollte in den meisten modernen Excel-Versionen (z.B. Excel 2016, 2019, und Office 365) funktionieren.
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