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.
