[VBA-Excel] Tabellenblätter verstecken und anzeigen

Gepostet am: Nov 16, 2012 7:8:25 PM

markierte Tabellenblätter verstecken

Public Sub SelectedTabellenBlatt_verstecken()Dim ws As Worksheet For Each ws In ActiveWindow.SelectedSheets ws.Visible = xlSheetHidden NextEnd Sub

alle versteckten Tabellenblätter anzeigen

alleVerstecktenTabellenblaetter_anzeigen

Public Sub alleVerstecktenTabellenblaetter_anzeigen()Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If (ws.Visible = xlSheetHidden) Or (ws.Visible = xlSheetVeryHidden) Then ws.Visible = xlSheetVisible End IfNextEnd Sub

Tabellenblatt mit einem bestimmten Namen anzeigen/verstecken

Tabellenblatt verstecken/anzeigen

Public Sub TabellenBlatt_anzeigen(strTabName As String)Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If ws.Name = strTabName Then ws.Visible = xlSheetVisible End IfNextEnd SubPublic Sub TabellenBlatt_verstecken(strTabName As String)Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If ws.Name = strTabName Then ws.Visible = xlSheetHidden End IfNextEnd SubPublic Sub TabellenBlatt_AnzeigenVerstecken(strTabName As String)Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If ws.Name = strTabName Then If ws.Visible = xlSheetHidden Then ws.Visible = xlSheetVisible ElseIf ws.Visible = xlSheetVisible Then ws.Visible = xlSheetHidden End If End IfNextEnd Sub