Alle tabellen Einblenden

Bild

Betrifft: Alle tabellen Einblenden
von: Michael
Geschrieben am: 14.02.2005 19:33:19
Hallo
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

Bild

Betrifft: AW: Alle tabellen Einblenden
von: Ute
Geschrieben am: 14.02.2005 19:37:11

Sub ein()
dim s as object
for each s in sheets
s.visible = true
next
End Sub

mfg Ute
Bild

Betrifft: Spitze! Vielen Dank Ute und Josef o.T.
von: Michael
Geschrieben am: 14.02.2005 19:47:50

Bild

Betrifft: AW: Alle tabellen Einblenden
von: Josef Ehrensberger
Geschrieben am: 14.02.2005 19:38:28
Hallo Michael!

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


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle tabellen Einblenden"