Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe aus Dialog schließen

Gruppe

ComboBox

Problem

Wie kann ich aus einem Dialog heraus die aktive oder auch eine andere Arbeitsmappe schließen?

Lösung
Den nachfolgenden Code in die genannten Module eingeben.

StandardModule: basMain

Sub DialogAufruf()
   frmWkbClose.Show
End Sub

ClassModule: frmWkbClose

Private Sub cmdCancel_Click()
   Unload Me
End Sub

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

Private Sub UserForm_Click()

End Sub

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