Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattauswahl über eine UserForm-ComboBox

Gruppe

ComboBox

Problem

Die Blattauswahl soll über eine UserForm-ComboBox erfolgen.

Lösung
Aufruf der UserForm über ShortCut STRG+a

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