15.06.2011

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

Keine Kommentare:

Kommentar veröffentlichen

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...