title image


Smiley Re: Sortieren in mehrspaltiger Listbox
Hallo Thorsten,



Null Problemo:



Private Sub CommandButton1_Click()    Call prcSort(0, ListBox1.ListCount - 1, 2)End SubPrivate Sub prcSort(lngLBound As Long, lngUBound As Long, bytSpalte As Byte)    Dim lngIndex1 As Long, lngIndex2 As Long    Dim vntTemp As Variant, vntBuffer As Variant    Dim bytIndex As Byte    lngIndex1 = lngLBound    lngIndex2 = lngUBound    vntTemp = ListBox1.List((lngLBound + lngUBound) \ 2, bytSpalte)    Do        Do While ListBox1.List(lngIndex1, bytSpalte) < vntTemp            lngIndex1 = lngIndex1 + 1        Loop        Do While vntTemp < ListBox1.List(lngIndex2, bytSpalte)            lngIndex2 = lngIndex2 - 1        Loop        If lngIndex1 <= lngIndex2 Then            For bytIndex = 0 To ListBox1.ColumnCount - 1                vntBuffer = ListBox1.List(lngIndex1, bytIndex)                ListBox1.List(lngIndex1, bytIndex) = ListBox1.List(lngIndex2, bytIndex)                ListBox1.List(lngIndex2, bytIndex) = vntBuffer            Next            lngIndex1 = lngIndex1 + 1            lngIndex2 = lngIndex2 - 1        End If    Loop Until lngIndex1 > lngIndex2    If lngLBound < lngIndex2 Then Call prcSort(lngLBound, lngIndex2, bytSpalte)    If lngIndex1 < lngUBound Then Call prcSort(lngIndex1, lngUBound, bytSpalte)End Sub

Da eine Listbox aber reinen Text beinhaltet, musst du, wenn es sich um nummerische Werte handelt, diese umwandeln.
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: