Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
156to160
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
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsblätter per Makro verstecken

Arbeitsblätter per Makro verstecken
04.09.2002 16:06:46
beckersbest
Guten Tag,

ich möchte alle Arbeitsblätter bis auf zwei bestimmte ausblenden. Dazu habe ich schon folgenden VB-Code gefunden:
--------------------------------
Sub SheetsHidden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> ActiveSheet.Name Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub
---------------------------
Allerdings werden hier außer dem aktuellen Blatt alle ausgeblendet und ehrlich gesagt hab ich im Moment keine Idee, wie ich ActiveSheet.Name durch z.B. sheets("Test") (vom Sinn her) ersetzen kann.

Hat jemand eine Idee?

Gruß und Danke
Thorsten

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

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsblätter per Makro verstecken
04.09.2002 16:11:28
Andreas S
Hallo,


Test1 und Test2 mußt du durch die beiden echten Namen ersetzen.

Gruss

Andreas

klappt!
04.09.2002 16:25:53
beckersbest
Hallo Andreas,

das ging aber schnell mit der Antwort und es haut so hin, besten Dank

Gruß
Thorsten

Ergänzende Frage
04.09.2002 19:31:27
Silvia
Kann man das ganze auch wieder rückgängig machen?
Gruß Silvia
Hat sich erledigt
04.09.2002 19:50:14
Silvia
einfach xlVeryHidden durch true ersetzen
Grüße an alle

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige