Weiß hier jemand, wie man mehrere oder alle ausgeblendeten Blätter in einem Rutsch wieder einblendet ?
Sub ausblenden()
Dim mo As Worksheet
For Each mo In ActiveWorkbook.Worksheets
If mo.Name <> "Tabelle1" Then
End If
Next mo
Sheets("Tabelle1").Select
ActiveWindow.DisplayWorkbookTabs = False
'Anmerkung: Die Blattregisterkarten (WorkbookTabs) lassen sich nur für die gesamte Mappe ein- bzw. ausblenden, nicht für einzelne Blätter.
End Sub
Sub ein()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Visible = True
Next
End Sub