Temat: Multiselect i scalanie wartości - problem

Dzień dobry.

Mam problem z scalaniem wartości z tabeli. Multi select działa przy pojedynczym kliknięciu w każdy element listy lecz mam problem z zaznaczeniem wszystkiego na raz. Wartości dublują się. Załączam grafikę i plik z przykładem.

Plik z przykładem nie jest mojego autorstwa. Znaleziony w internecie. Wykorzystuje go po zmodyfikowaniu kody.

https://megawrzuta.pl/download/722aebc6c43be194bebac39e...

Temat: Multiselect i scalanie wartości - problem

Witam,
W makrze pod przyciskiem są dwie pętle.
Druga powinna się wykonać "po" pierwszej:

Private Sub cmdSelectAll_Click()

On Error GoTo Err_cmdSelectAll_Click

    

Dim i As Integer



If cmdSelectAll.Caption = "Alles Selecteren" Then

    For i = 0 To Me.List2.ListCount

        Me.List2.Selected(i) = True



     '   Dim Cursisten As String

      '  Dim ctl As Control

       ' Dim Itm As Variant

   Next i '<- tutaj koniec pierwszej pętli!



        Set ctl = Me.List2



         For Each Itm In ctl.ItemsSelected

         If Len(Cursisten) = 0 Then

         Cursisten = ctl.ItemData(Itm)

         Else

         Cursisten = Cursisten & "," & ctl.ItemData(Itm)

         End If

         Next Itm

         

        Me.txtCursisten = Cursisten



    cmdSelectAll.Caption = "Alles De-Selecteren"



    

Else

     For i = 0 To Me.List2.ListCount

        Me.List2.Selected(i) = False

        Me!txtCursisten = Null

        

    Next i

    cmdSelectAll.Caption = "Alles Selecteren"





End If



Exit_cmdSelectAll_Click:

    Exit Sub



Err_cmdSelectAll_Click:

    MsgBox Err.Description

    Resume Exit_cmdSelectAll_Click

    

End Sub

Pozdrawiam!

Temat: Multiselect i scalanie wartości - problem

Dzięki. Pomogło