ich suche eine Möglichkeit per VBA alle ausgeblendeten Tabellenblätter einzublenden ohne dass man deren Namen oder die Anzahl der Verborgenen Tabellen kennt?
Vielen Dank für eure Hilfe
Michael
Sub ein()
dim s as object
for each s in sheets
s.visible = true
next
End Sub
Sub alleEin()
Dim wks As Worksheet, act As Worksheet
Set act = ActiveSheet
Application.ScreenUpdating = False
For Each wks in Thisworkbook.Sheets
wks.Visible = xlSheetVisible
Next
act.Activate
Application.ScreenUpdating = True
End Sub