MultiSelection Listbox UserForm

Question

Ich habe eine Multiselektions-Listbox mit der Option style (chk boxen auf der linken Seite). Ich habe den folgenden Code, um die ausgewählten Daten in das Arbeitsblatt zu übertragen (dies muss dynamisch sein, da die Listbox selbst von dynamischen benannten Bereichen gespeist wird).

Private Sub cmdRun_Click() 

Dim i As Integer 

i = 0 

Do While i < lstProperties.ListCount + 1 
    If lstProperties.Selected(i) = True Then 
    Sheet7.Cells(i + 1, 1) = lstProperties.List(i) 
    End If 
    i = i + 1 
Loop 

End Sub 

Es scheint, wie es arbeiten will, aber ich denke, wenn ich den Befehl ausführen wird das Entfernen des Hakens des Listenfeld Daten nach der ersten Schleife und damit nur die erste Auswahl im Listenfeld zur Umsetzung.

Weiß jemand, wie man das vermeidet?

Answer 1

Sie werden für die Zeile Referenz eine separate Variable benötigen, so dass Sie es nur erhöhen können, wenn ein Element aus dem Listenfeld ausgewählt ist ...

Private Sub cmdRun_Click() 

Dim Rw As Integer 
Dim i As Integer 

Sheet7.Columns(1).ClearContents 

Rw = 1 
i = 0 
Do While i < lstProperties.ListCount 
    If lstProperties.Selected(i) = True Then 
     Sheet7.Cells(Rw, 1) = lstProperties.List(i) 
     Rw = Rw + 1 
    End If 
    i = i + 1 
Loop 

End Sub