Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Blattaktivierung Einlesen der Arbeitsblätter in ListBox

Gruppe

SheetActivate

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