Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

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