Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblätter ausblenden

Arbeitsblätter ausblenden
04.12.2004 03:41:19
Harry
Gibt es eine Möglichkeit? Wenn ich eine Exceldatei habe mit 10 oder 15 Arbeitsblättern, das ich zum Bsp. alle bis auf 3 ausblende ?

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter ausblenden
04.12.2004 08:58:35
Harry1
Hallo Harry,
Du kannst in den Eigenschaften der Arbeitsblätter (Alt+F11 drücken)
die Eigenschaft "Visible" jedes Tabellenblattes auf "Hidden" oder "VeryHidden"
einstellen.
Gruß Harry1
AW: Arbeitsblätter ausblenden
04.12.2004 09:27:02
Josef
Hallo Harry!
Eine Möglichkeit:
Gehe auf ein Blatt das nicht ausgeblendet werden soll.
Füge einen Commandbutton ein, rechtsklick darauf und "Code anzeigen".
Ersetze den dort angezeigte Code durch:

Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim blnAus As Boolean
On Error GoTo ENDE
Application.ScreenUpdating = False
If CommandButton1.Caption = "Einblenden" Then
blnAus = True
CommandButton1.Caption = "Ausblenden"
Else
blnAus = False
CommandButton1.Caption = "Einblenden"
End If
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> Me.Name And wks.Name <> "Tabelle2" And wks.Name <> "Tabelle3" Then
wks.Visible = blnAus
End If
Next
ENDE:
Application.ScreenUpdating = True
End Sub
Zurück zu Excel, Berabeitungsmodus beenden und Button klicken.
Die Namen der beiden Tabellenblätter die nicht ausgeblendet werden
sollen, musst du im Code anpassen. Das Blatt mit dem Button musst
du nicht angeben.
Gruß Sepp
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige