ListBox. Selected, Ausgabe Werte um 1versetzt
13.11.2017 15:39:02
Hase
hoffentlich könnt ihr mir helfen. In meiner UserForm ist eine Listbox, die die Namen der aktuellen Tabellenblätter einliest. Anschließend soll der Benutzer die Blätter auswählen, die er gerne ansehen möchte. Der Code funktioniert soweit, aber die es werden die falschen Blätter angezeigt. Sprich, wählt der User Blatt 2 und 3 aus, werden Blatt 1 und 2 angezeigt.
Könnte ihr den Fehler finden?
Dim lngIndex As Long
With ListBox1
For lngIndex = 0 To .ListCount - 1
If .Selected(lngIndex) Then
ActiveWorkbook.Worksheets(lngIndex).Visible = xlSheetVisible
End If
Next lngIndex
End With
Tausend Dank!