Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblätter ausblenden

Forumthread: 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 ?
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige