Code Änderung
20.06.2018 14:58:48
Guesa
Folgender Code funktioniert soweit, nur, ich möchte erst ab Tabellenblatt 3 in die Listbox einlesen lassen. Habe schon einige andere Einstellungen vorgenommen, hat aber nix gebracht. Vielleicht noch eins, ist aber ein reines Luxusproblem. Wie müsste der Code aussehen wenn ich direkt in der Liste per doppelklick das Tabellenblatt auswähle. Danke für Eure Mühe
Gruß, Guesa
Option Explicit
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
Anzeige