Function BubbleSortList(ByVal SortList(),optional
sort2ndValue as Boolean)
Sortiert ein maximal 2 dimensionales Array.
Die Funktion hat einen Fehler. Die Schleife
geht bis in das letzte Element und erzeugt dabei automatisch ein neues Element. Um
dies zu verhindern muß man die beiden Schleifen innerhalb der Select-Anweisung um
eine Bedingung ergänzen.
Select
Case dimensions
Case
1
if t<>(i-1) then
If
SortList(t) > SortList(t+1) Then
DisplayDummy
= SortList(t)
SortList(t)
= SortList(t+1)
SortList(t+1)
= DisplayDummy
End
If
end
if
Case
2
If
t<>(i-1) then
If
SortList(t,sortvalue) > SortList(t+1,sortvalue) Then
For
k = 0 to UBound(SortList(),2)
DisplayDummy
= SortList(t,k)
SortList(t,k)
= SortList(t+1,k)
SortList(t+1,k)
= DisplayDummy
Next
k
End
If
End
if
End
Select
Den neuen Code der Funktion muß man
dann in sein eigenes Modul einsetzen, da die
mitgelieferten Module schreibgeschützt sind.
Der Fehler ist in neueren Versionen inzwischen
behoben.