Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sheets ausblenden

Sheets ausblenden
16.06.2008 16:47:00
Rüdiger
Hallo,
ich habe folgendes Makro zusammengebastelt, um in meinem Workbook alle Sheets auszublenden.

Sub Ausblenden ()
For Each sh In ActiveWorkbook.Sheets
sh.Visible = False
Next
End Sub


Allerdings soll das Sheet mit dem Namen ("Übersicht") nicht ausgeblendet werden, also als einziges sichtbar bleiben. Ich weiß aber nicht, wie ich diesen Befehl in das Makro einbauen kann. Ich bin um jede Hilfe dankbar.
Gruß Rüdiger

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets ausblenden
16.06.2008 16:51:00
Hajo_Zi
Hallo Rüdiger,
mal Live

Sub Ausblenden ()
For Each sh In ActiveWorkbook.Sheets
sh.Visible = Worksheets(sh.Name)="Übersicht"
Next
End Sub



AW: Sheets ausblenden
16.06.2008 16:52:26
Andi
Hi,
so:

Sub Ausblenden()
For Each sh In ActiveWorkbook.Sheets
If sh.Name  "Übersicht" Then sh.Visible = False
Next
End Sub


Schönen Gruß,
Andi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige