Tabellenblätter in Userform-Listbox einlesen
30.10.2002 19:20:53
Richard Fassbender
ich möchte Tabellenblätter über eine Userform in eine Listbox einlesen und aus der Listbox aufrufen. Im jetzigen Code, werden alle Tabellenblätter in der Listbox dargestellt.
Ich möchte aber, dass ein bestimmtes Tabellenblatt nicht in der Listbox aufgeführt wird.
Wer kann mir weiterhelfen?
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
Vorab schon einmal vielen Dank.
Richard