Gruppe
Ereignis
Bereich
SheetActivate
Thema
Bei Blattaktivierung Einlesen der Arbeitsblätter in ListBox
Problem
Bei jedem Aktivieren eines Arbeitsblattes sollen die Blattnamen der Arbeitsmappe neu in ein Listenfeld eingelesen werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.
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