vba listbox meerdere gelijk selecteren en updaten ?

[Dummy1912]

Hallo,

Ik zou graag mijn code willen uitbreiden om meerdere te selecteren en deze dan tegelijk aan te passen.
mijn code kan 1 selecteren en met de CommandButton1_Click te
laten aanpassen als afgehandeld
zou deze graag sneller willen laten verlopen door multiselect te doen en deze alleen in soort loop afzonderlijk te willen afhandelen.

Private Sub CommandButton1_Click()

If Me.ListBox1.ListIndex = -1 Then
MsgBox "Selecteer een item aub, om de geslecteerde item te kunnen behandelen als afgehandeld.", vbInformation, "Items van de Klant"
Exit Sub
End If

Set findvalue = Sheet5.Range("d9:d10000").Find(What:=Me.ListBox1.Column(3), LookIn:=xlValues, LookAt:=xlWhole)

    Dim i As Long
    Dim rowsList As String

    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
        findvalue.Offset(0, -2).Value = "/"
        findvalue.Offset(0, -3).Value = "afgehandeld"
        End If
    Next i
End Sub

Dank u

 

[OctaFish]

Met een voorbeeldje word je veel beter geholpen. Ik vermoed dat alle helpers nog bezig zijn met het nabouwen van de door jou gewenste situatie. Wat jammer is, want in dezelfde tijd hadden ze je probleem waarschijnlijk al lang opgelost .