listbox sorteren met twee kolommen VBA

[SjonR]

Goedemorgen helpers,

Ik gebruik deze code om gegevens in een listbox te sorteren. Ik wil nu een tweede kolom toevoegen aan de listbox, maar dan gaat deze kolom niet mee. Hoe kan ik zorgen dat de tweede kolom ook meeverhuist bij het sorteren.

For Each contr In Me.Controls
If TypeName(contr) = "ListBox" Then
    With contr
         For j = 0 To .ListCount - 2
             For i = 0 To .ListCount - 2
                 If .List(i) > .List(i + 1) Then
                     temp = .List(i)
                     .List(i) = .List(i + 1)
                     .List(i + 1) = temp
                 End If
             Next i
         Next j
    End With
End If
Next

 

[snb]

Waar is je voorbeeldbestand ?

For Each it In Controls
  If TypeName(it) = "ListBox" Then
    cells(1,200).resize(it.listcount,2)=it.List
    with cells(1,200).currentregion
       .sort cells(1,201)
       it.list=.Value
       .clearcontents
    end with
  end if
Next