listbox sorteren met twee kolommen VBA

Status
Niet open voor verdere reacties.
SjonR

SjonR

Verenigingslid
Lid geworden
10 nov 2016
Berichten
3.279
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.

Code: 
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
 
Waar is je voorbeeldbestand ?

Code: 
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
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan