Sortering af data

marker alle linierne... og så sorter igen. den sorterer automatisk efter den første kolonne.

forstår du det?

Ups.. listboxen optræder på en userform og har ingen relationer til excel. :-/

Følgende kan bruges. Den bygger på \"bubble sort\" og er OK hvis der ikke er alt for mange rækker.


Sub minListeSortering(objMedListe As Object, Sorteringsrække As Integer)
    \'lister eller comboboxe sorteres efter Sorteringsrække
    Dim i As Integer, e As Integer
    Dim Temp As Variant
    Dim Liste As Variant
    Liste = objMedListe.list
    For i = 0 To UBound(Liste, 1)
        For e = i + 1 To UBound(Liste)
        If Liste(i, Sorteringsrække) > Liste(e, Sorteringsrække) Then
            BytRækker Liste, i, e
        End If
        Next e
    Next i
    objMedListe.list = Liste
End Sub

Sub BytRækker(Liste As Variant, i As Integer, e As Integer)
    Dim tmp As Variant
    Dim c As Integer
    For c = 0 To UBound(Liste, 2)
        tmp = Liste(i, c)
        Liste(i, c) = Liste(e, c)
        Liste(e, c) = tmp
    Next c
End Sub

Hmmm lidt forklaring
objMedListe, er det min listebox? og sorteringsrække? kan du hjælpe mig lidt jeg er kørt fast

Indsæt koden i din userform.


Objmedliste er din listbox. Sorteringsrække skulle da vist hedde sorteringskolonne. (men det virker godt nok)
Første kolonne er nummer 0 osv.

Så skulle det være muligt at skrive f.eks.

minListeSortering <liste>,1
hvorefter din liste sorteres efter 2. koloenne

Tusind tak!!! :-) osv.
jeg Accepter og giver point !