Schleife über markierte Elemente in Listbox
17.09.2014 09:30:39
Peter
ich habe eine Listbox mit Multiselect-Option und möchte eine For-Schleife nur über die Elemente der Listbox haben, die durch die Mehrfachauswahl markiert sind.
Wie kann ich das am einfachsten realisieren?
Momentan schaut meine Listbox folgendermaßen aus (siehe Code): Ich habe in diesem Fall noch kein Multiselect. Die Elemente in der Listbox sind bei mir die einzelnen sheets. Das sheet, welches ich anklicke wird aktiviert. Jetzt möchte ich mehrere Sheets auf einmal auswählen und wie oben bereits erwähnt eine For-Schleife über diese ausgewählten sheets haben.
Private Sub ListBox1_Click()
With Me.ListBox1
If .ListIndex -1 Then
Sheets(.List(.ListIndex, 0)).Activate
Range(.List(.ListIndex, 1)).Select
End If
End With
Danke!
Viele Grüße,
Peter