Userform bestimmte Blätter nicht anzeigen
14.12.2016 16:54:51
Julia
brauche eure Hilfe!
Habe ein Listenfeld zur Navigation in meiner Excel-Liste gelegt und den nachfolgenden Code hineingeschrieben.
Soweit so gut.... nur gibt es aber 3 Tabellenblätter die hier gar nicht aufgeführt werden sollen (z.B. Tabellenblatt X, Y und Z)
Wie bekomme ich das nun schon wieder hin?
Bitte, liebe Excel-VCA-Spezialisten, helft mir ein weiteres Mal!
Gruss
Julia
mein Code:
' Ruft das Makro UserForm_Initialize() auf
Sub navigation()
Call UserForm_Initialize
End Sub
' Befüllt die ListBox
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next sht
End Sub
Private Sub ListBox1_Click()
Sheets(ListBox1.ListIndex + 1).Activate
End Sub
' Löscht die Einträge im Navigationsfeld
Sub navigation_loeschen()
Sheets("Stundenreport").ListBox1.Clear
End Sub