Mehrere Listbox Items ausgeben
23.11.2020 15:56:03
Jurica
ich habe mir alle Tabellenblätter eines Excel Dokuments in einer ListBox (Active X _ Steuerelement) ausgeben lassen. Nun habe ich die Mehrfachselektion aktiviert und anhand der Auswahl kopiere ich die entsprechenden Tabellenblätter, welche in der ListBox selektiert worden in eine neue Excel Mappe. Bei mir tritt leider nun aber das Problem auf, dass nur die erste Selektion kopiert wird und anscheinend taucht der Laufzeitfehler '9' auf welcher besagt, dass der Index außerhalb des gültigen Bereichs ist. Kann mir jemand sagen, was ich ändern muss, damit alle selektierten Tabellenblätter kopiert werden?
Private Sub CommandButton1_Click()
Dim DateiName As String
Dim tabellenblattname As String
Const Pfad As String = "C:\Desktop\"
DateiName = Worksheets("Navigation").Range("A1").Value
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Worksheets(ListBox1.List(i)).Copy
End If
Next
ActiveWorkbook.SaveAs Pfad & DateiName, FileFormat:=-4143
End Sub