Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SheetActivate

Msg mit 2 Ereignissen +Cancel

Ereignisprozedur

Makro für ereignisabh. Druck verschiedener Seiten

UF Activate / Initialize Ereignis

Namen definiert- in Ereignis verwenden?

Zeilen aus- einblenden als Ereignis?

Welches Ereignis ist das richtige ??

Ereignis Arbeitsblatt sperren abfangen

Ereignisprozedur f. Multipage-Reiter

Frage zum Change ereignis

Change-Ereignis in Combobox unterdrücken

Combobox Ereignis

Userform, Ereignis deklarieren im Klassenmodul

Welches Diagramm-Ereignis?

Bestimmtes Ereignis in Spalte zählen

Command Button Ereignis

Ereignis von Laufzeit-Checkbox

change-ereignis bei dynamischen Controls / Teil 2

Change Ereignis verhindern

change-ereignis bei dynamisch erstellten Controls

Schaltfläche - Ereignis erst nach Bestätigung ausl

Objekt_Error - Ereignis in UserForm

change ereigniss auf userform.

Click-Ereignis für Checlbox nicht ausführen?

Speichern einer Kopie durch Ereigniss Workbook_bef

Reagieren auf Tastaturereignisse

Ausnahmen für Exit-Ereignis

Exit-Ereignis SetFocus

select Ereigniss UF Show

Ereignis zeitweise mit Fehler

Selectereigniss in Spalte

doppeltes Klick-Ereignis

Doppelklick-Ereignis

VBA Ereignis: Änderung der Hintergrundfarbe

Ereigniscode aus zwei Teilen fnk. nicht

Exit Ereignis einer Textbox im Frame

Change-Ereignis bei Auswahllisten

Worksheet_Change Ereignis erweitern

Exit Ereignis springt nicht an

Ereignis "BeforeSave" - ".Find" geht nic

change ereigniss nicht ausführen Userform

Rekursiven Aufruf von Ereignissen verhindern

Makro läuft nicht, falsches Ereignis?

Dropdown Ereignis

Nach Eingabe Ereignis

UDF mittels Ereignis aktualisieren?

Ereignisprozeduren automatisiert VBE