Gruppe
Allgemein
Problem
Alle Arbeitsblätter ausser dem aktiven Blatt sollen aus- bzw. eingeblendet werden.
StandardModule: Modul1
Sub SheetsHidden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> ActiveSheet.Name Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub
Sub SheetsVisible()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Visible = True
Next wks
End Sub