Thema: Ausgewählte Arbeitsmappe schließen

Home

Eine aus einer ComboBox auszuwählende Arbeitsmappe soll geschlossen werden. Ausgewählte Arbeitsmappe schließen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Arbeitsmappen in ComboBox einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle geöffneten Arbeitsmappen bilden
- Arbeitsmappenname in ComboBox eintragen
- Ersten ComboBox-Eintrag auswählen

Code:


Private Sub UserForm_Initialize()
   Dim wkb As Workbook
   For Each wkb In Workbooks
      cboWkb.AddItem wkb.Name
   Next wkb
   cboWkb.ListIndex = 0
End Sub

Prozedur: cmdClose_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Ausgewählte Arbeitsmappe schließen
Ablaufbeschreibung:
- Ausgewählte Arbeitsmappe schließen

Code:


Private Sub cmdClose_Click()
   Workbooks(cboWkb.Value).Close
End Sub