Thema: Blattauswahl

Home

Die Blattauswahl soll über eine UserForm-ComboBox erfolgen.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Arbeitsblätter in ComoBox einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle Arbeitsblatt-Ojekte bilden
- Blattname in ComboBox eintragen

Code:


Private Sub UserForm_Initialize()
   Dim wks As Worksheet
   For Each wks In Worksheets
      cboWks.AddItem wks.Name
   Next wks
End Sub

Prozedur: cboWks_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Arbeitsblatt auswählen
Ablaufbeschreibung:
- Arbeitsblatt gemäß ComboBox-Auswahl auswählen
- UserForm schließen

Code:


Private Sub cboWks_Change()
   Worksheets(cboWks.Value).Select
   Unload Me
End Sub