Habe auf einer userform eine Listbox, die Mehspaltig gefüllt wird:
For i = 10 To Cells(Rows.Count, 2).End(xlUp).Row
If InStr(LCase(Cells(i, 1).Value), LCase(.TextBox3.Value)) > 0 Or _
InStr(LCase(Cells(i, 2).Value), LCase(.TextBox3.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 1).Value
.ListBox1.Column(1, e) = Cells(i, 2).Value
.ListBox1.Column(2, e) = Cells(i, 3).Value
.ListBox1.Column(3, e) = Cells(i, 4).Value
.ListBox1.Column(4, e) = Cells(i, 6).Value
.ListBox1.Column(5, e) = Cells(i, 7).Value
.ListBox1.Column(6, e) = Cells(i, 5).Value
e = e + 1
Else
End If
Next i
Ich möchte nun mit eine Button die Listbox soweit bringen, dass die zweite Spalte sortiert wird.
Geht das ?
Danke
Jockel