Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattauswahl über UserForm-ListBox mit Mehrfachauswahl

Gruppe

ListBox

Problem

Wie kann ich über eine UserForm-ListBox ausgewählte Tabellenblattregister auswählen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmSheets

Private Sub cmdWeiter_Click()
   Dim iCounter As Integer
   Dim arr() As String
   Dim iItems As Integer
   For iCounter = 0 To lstSheets.ListCount - 1
      If lstSheets.Selected(iCounter) Then
         iItems = iItems + 1
         ReDim Preserve arr(1 To iItems)
         arr(iItems) = lstSheets.List(iCounter)
      End If
   Next iCounter
   If iItems > 0 Then
      Worksheets(arr).Select
   End If
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim wks As Worksheet
   For Each wks In ThisWorkbook.Worksheets
      lstSheets.AddItem wks.Name
   Next wks
End Sub

StandardModule: basMain

Sub CallForm()
   frmSheets.Show
End Sub