[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