Alle ausgeblendeten Blätter einblenden



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Alle ausgeblendeten Blätter einblenden
von: Rainer
Geschrieben am: 04.07.2002 - 11:29:27

Hallo allerseits,

ich habe mehrere Arbeitsblätter, die ausgeblendet sind.
Wie kann ich denn alle auf einmal einblenden lassen.
Ich möchte nicht umständlich alle einzeln einblenden.
Das muß doch einfach per Makro gehen.

Vielen Dank im voraus für die Hilfe

MfG

Rainer


nach oben   nach unten

Re: Alle ausgeblendeten Blätter einblenden
von: sam
Geschrieben am: 04.07.2002 - 11:32:02

Hallo Rainer,

tja, geht wirklich ganz einfach:


Sub AlleBlätterEinblenden()
  Dim sh As Worksheet
  For Each sh In Sheets
    sh.Visible = True
  Next sh
End Sub

Grüße aus Oberösterreich,
Sam

nach oben   nach unten

Re: Alle ausgeblendeten Blätter einblenden
von: MikeS
Geschrieben am: 04.07.2002 - 11:49:38

Hallo Rainer,


Sub EinblendenVersteckteBlätter()
  Dim Blatt As Worksheet
    For Each Blatt In Sheets
      Blatt.Visible = True
    Next Blatt
End Sub

Sub AusblendenAußerAktivesBlatt()
  Dim Blatt As Object
    For Each Blatt In Sheets
      If Blatt.Name <> ActiveSheet.Name Then
      Blatt.Visible = False
      End If
    Next Blatt
End Sub

Ciao MikeS


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Alle ausgeblendeten Blätter einblenden"