[VBA-Excel] Tabellenblätter verstecken und anzeigen

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

markierte Tabellenblätter verstecken

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