VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsmappe aus Dialog schließen

Gruppe

Dialog

Bereich

ComboBox

Thema

Arbeitsmappe aus Dialog schließen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox