Ausgeblendete Tabellenblätter Inhalt anzeigen!

Es soll nur ein Tabellenblatt sichtbar sein. Alle restlichen Sheets sind per "xlSheetVeryHidden" ausgeblendet. In einer ComboBox auf dem ersten Tabellenblatt können die Tabellenblätter ausgewählt und der Inhalt angezeigt werden.

Ausgeblendete Tabellenblätter Inhalt anzeigen...[ZIP, 70 KB]

Option Explicit
Private Sub Workbook_Open()
Dim intTMP As Integer
On Error GoTo Fin
With Tabelle1
.ComboBox1.Clear
.ComboBox1.AddItem ("Auswahl...")
For intTMP = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(intTMP).Index > 1 Then
.ComboBox1.AddItem _
(ThisWorkbook.Worksheets(intTMP).Name)
End If
Next intTMP
.ComboBox1.ListIndex = 0
End With
Fin:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
If wksSheet.Index > 1 Then _
wksSheet.Visible = xlSheetVeryHidden
Next wksSheet
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...