Gruppe
Dialog
Problem
Wie kann ich aus einem Dialog heraus die aktive oder auch eine andere Arbeitsmappe schließen?
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