Gruppe
Dialog
Problem
Die Blattauswahl soll über eine UserForm-ComboBox erfolgen.
ClassModule: frmSelect
Private Sub cboSheets_Change()
Worksheets(cboSheets.Value).Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
cboSheets.AddItem wks.Name
Next wks
End Sub
StandardModule: basMain
Sub DialogAufruf()
frmSelect.Show
End Sub