alle TB sichtbar



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: alle TB sichtbar
von: Jens
Geschrieben am: 25.05.2002 - 17:08:53

hallo liebe Excelgemeinde,

wer kann mir helfe?
Ich habe ein TB in Entwicklungsumgebung(Alt+F11) auf SheetsVerryHidden gestellt und bekomme es jetzt nicht mehr rückgängig. Gibt es eine Möglichkeit per Makro alle TB in ArbeitsmappenRegister sichtbar zu machen?

Vielen Dank im voraus Jens


nach oben   nach unten

Re: alle TB sichtbar
von: WernerB.
Geschrieben am: 25.05.2002 - 17:36:54

Hallo Jens,

hier die Makros zum Aus- und Einblenden.

Bitte beachten: Mindestens ein Tabellenblatt muss sichtbar bleiben (in diesem Beispiel "Tabelle1").


Option Explicit
Sub BlaetterAusblenden()
Dim As Byte
    For i = 1 To Sheets.Count
      If Sheets(i).Name <> "Tabelle1" Then _
        Sheets(i).Visible = xlVeryHidden
    Next i
End Sub

Sub BlaetterEinblenden()
Dim As Byte
    For i = 1 To Sheets.Count
      Sheets(i).Visible = True
    Next i
End Sub


Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "alle TB sichtbar"