Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle tabellen Einblenden

Alle tabellen Einblenden
14.02.2005 19:33:19
Michael
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle tabellen Einblenden
Ute

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

mfg Ute
Spitze! Vielen Dank Ute und Josef o.T.
Michael
AW: Alle tabellen Einblenden
14.02.2005 19:38:28
Josef
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!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige