bestimmtes Arbeitsblatt nicht in Listbox
09.10.2008 09:25:45
Lothar
ich habe da folgendes Problem:
Ich lasse mir in einer Listbox (Userform) alle Tabellenblätter einer Arbeitsmappe anzeigen um diese dann weiter zu bearbeiten. Mit diesem Code aus einem Forumsarchiv:
Option Explicit
'Code In Userform mit: Listbox1
Private Sub UserForm_Activate()
Dim wks As Worksheet
ListBox1.Clear
For Each wks In ActiveWorkbook.Worksheets
ListBox1.AddItem wks.Name
Next
End Sub
Private Sub ListBox1_Click()
ActiveWorkbook.Worksheets(ListBox1.List(ListBox1.ListIndex)).Activate
End Sub
Es gibt allerdings ein Blatt namens "Deckblatt", welches nicht angezeigt werden sollte, da es nicht bearbeitet werden darf (mit dieser Datei arbeiten noch andere User).
ich hoffe, mir kann geholfen werden,
vielen Dank Lothar
Anzeige