VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blattauswahl über UserForm-ListBox mit Mehrfachauswahl

Gruppe

Dialog

Bereich

ListBox

Thema

Blattauswahl über UserForm-ListBox mit Mehrfachauswahl

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

    


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