Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt einblenden

Forumthread: Blatt einblenden

Blatt einblenden
02.11.2004 18:29:04
Thomas
Hallo und Moin Moin !
Weiß hier jemand, wie man mehrere oder alle ausgeblendeten Blätter in einem Rutsch wieder einblendet ?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt einblenden
Udo
Auf einmal nicht, schön nacheinander in einer Schleife.
Udo
AW: Blatt einblenden
H.W
Hallo Thomas
mal eben für dich ausprobiert
Code kommt aus dem Forum

Sub ausblenden()
Dim mo As Worksheet
For Each mo In ActiveWorkbook.Worksheets
If mo.Name <> "Tabelle1" Then
End If
Next mo
Sheets("Tabelle1").Select
ActiveWindow.DisplayWorkbookTabs = False
'Anmerkung: Die Blattregisterkarten (WorkbookTabs) lassen sich nur für die gesamte Mappe ein- bzw. ausblenden, nicht für einzelne Blätter.
End Sub

Anzeige
AW: Blatt einblenden
ransi
hallo thomas
so kriegst du alle:
Public 

Sub ein()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Visible = True
Next
End Sub

ransi
AW: Blatt einblenden
05.11.2004 21:47:49
Thomas
Hallo Ransi,
besten Dank! Funktioniert einwandfrei!
Komisch nur, dass ich es im Forum nicht selbst gefunden habe.
Gruß
Thomas
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige