Uitbreiden listboxtransfer code

[wiki]

Ik heb hard zitten puzzelen, maar krijg onderstaande code niet aangepast.
Ik heb de listboxen uitgebreid met een kolom en wil beide kolommen verplaatsen
welke regel(s) moet ik aan onderstaande code toevoegen om ook de tweede kolom te verplaatsen?

Private Sub btnSelect1_Click()


' moves all selected items from the AvailableItems listbox to the SelectedItems listbox
Sheets("factuur").Select

Dim i As Integer
    Application.ScreenUpdating = False
    With Me.Results
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
                Me.lbSelectedItems.AddItem .List(i)

                .RemoveItem i
            End If
        Next i
    End With
  '  SortListBoxes
    Application.ScreenUpdating = True
End Sub

gr wim

 

[Superzeeuw]

Wim,

Kun je een voorbeeld bestand posten zonder gevoelige informatie.

 

[wiki]

In de bijlage de listbox

gr wim

 

[cow18]

volgens mij neem je de waarden zo mee van de ene listbox naar de andere

Private Sub btnSelect1_Click()


' moves all selected items from the AvailableItems listbox to the SelectedItems listbox
  Sheets("factuur").Select

  Dim i        As Integer
  Application.ScreenUpdating = False
  With Me.Results
    For i = .ListCount - 1 To 0 Step -1
      If .Selected(i) Then
        Me.lbSelectedItems.AddItem .List(i)
        'MsgBox Me.Results.List(i, 1) & vbTab & Me.Results.List(i, 2)
        .List(.ListCount - 1, 1) = Me.Results.List(i, 1)
        .List(.ListCount - 1, 2) = Me.Results.List(i, 2)
        .List(.ListCount - 1, 3) = Me.Results.List(i, 3)
        .List(.ListCount - 1, 4) = Me.Results.List(i, 4)
        .RemoveItem i
      End If
    Next i
  End With
  '  SortListBoxes
  Application.ScreenUpdating = True
End Sub

 

[wiki]

Het werkt niet
de regel

 Me.lbSelectedItems.AddItem .List(i)

verplaatst de waarde in de eerste kolom naar de andere listbox, terwijl ik de regels

.List(.ListCount - 1, 1) = Me.Results.List(i, 1)
        .List(.ListCount - 1, 2) = Me.Results.List(i, 2)
        .List(.ListCount - 1, 3) = Me.Results.List(i, 3)
        .List(.ListCount - 1, 4) = Me.Results.List(i, 4)

inactief zet. Ik kan van alles aan deze regels veranderen maar volgens mij doen deze niets.

 

[wiki]

Het is wel gelukt met:

Private Sub btnSelect1_Click()
Dim I As Integer
Dim J As Integer
Dim arrAddItems()
    For I = 0 To Results.ListCount - 1
        If Results.Selected(I) Then
            
            J = J + 1
            ReDim Preserve arrAddItems(1, J)
            
            arrAddItems(0, J) = Results.List(I, 0)
            arrAddItems(1, J) = Results.List(I, 1)
            
        End If
    Next I
    lbSelectedItems.Column = arrAddItems


End Sub