Gruppe
Ereignis
Problem
Bei jedem Aktivieren eines Arbeitsblattes sollen die Blattnamen der Arbeitsmappe neu in ein Listenfeld eingelesen werden.
ClassModule: Tabelle1
Private Sub Worksheet_Activate()
Dim wks As Worksheet
Dim lst As ListBox
Set lst = ActiveSheet.ListBoxes("Listenfeld 1")
lst.RemoveAllItems
For Each wks In Worksheets
lst.AddItem wks.Name
Next wks
End Sub