Ich habe folgenden Code für die Auflistung aller Tabelelnblätter in der Listbox. Nun möchte ich jedoch, dass ein Blatt nicht aufgelistet wird. Was muss ich zusätzlich im Code eingeben?
Private Sub ListBox1_Click()
Dim intSelected As Integer
Dim strGetType As Integer
On Error Resume Next
If Me.ListBox1.ListCount > 0 Then
intSelected = Me.ListBox1.ListIndex
strGetType = TypeName(ActiveWorkbook.Sheets(intSelected + 1))
If strGetType = "Worksheet" Then
Select Case ActiveWorkbook.Sheets(intSelected).Type
Case xlWorksheet: strGetType = "Worksheet"
Case xlExcel4MacroSheet: strGetType = "XL4 Macro Sheet"
Case xlExcel4IntlMacroSheet: strGetType = "XL$ Intl Macro Sheet"
End Select
End If
Me.Label1 = strGetType
End If
If Me.ListBox1.ListCount > 0 Then
ActiveWorkbook.Sheets(Me.ListBox1.ListIndex + 1).Activate
End If
End Sub
Danke für eure Hilfe
Roger