ich möchte in einer Listbox die Tabellenblattnamen des aktiven Workbooks einlesen. Das Tabellenblatt mit dem Namen "Übersicht" soll in der Listbox nicht erscheinen.
Für eine Lösung wäre ich dankbar.
Gruß...Richard
ich möchte in einer Listbox die Tabellenblattnamen des aktiven Workbooks einlesen. Das Tabellenblatt mit dem Namen "Übersicht" soll in der Listbox nicht erscheinen.
Für eine Lösung wäre ich dankbar.
Gruß...Richard
in einer UserForm?
Gruß
Micha
Gruß...Richard
Ich möchte aber ein bestimmtes Blatt nicht in der Listbox aufgeführt haben.
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