Excel aufmöbeln mit VBA

Auf Boolean Auf True
’ Quelle:
’ http://dbwiki.net/wiki/VBA_Tipp:_Bubblesort (31.1.2013)
’ Ganz leicht verändert
Public Function BubbleSortAsc(vArray As Variant) As Long
’
’ Ascending: aufsteigend sortieren
’
If Not IsArray(vArray) Then Exit Function
Dim Mark As Long, i As Long
Dim EndIdx As Long, StartIdx As Long
Dim Temp As Variant
Dim cnt As Long
cnt = 0
EndIdx = UBound(vArray)
StartIdx = LBound(vArray)
Do While EndIdx > StartIdx
Mark = StartIdx
For i = StartIdx To EndIdx - 1
Marke: If vArray(i) > vArray(i + 1) Then
Temp = vArray(i)
vArray(i) = vArray(i + 1)
vArray(i + 1) = Temp
Mark = i
cnt = cnt + 1
End If
Next i
EndIdx = Mark
Loop
BubbleSortAsc = cnt
End Function
’ Genauso Absteigend sortieren: In der markierten Anweisung
’ das Vorzeichen > durch < ersetzen
Public Function BubbleSortAsc(vArray As Variant) As Long
usw.
Function BubbleSort(ByRef vArray As Variant, _
ByVal Asc As Boolean)
If Asc Then
BubbleSort = BubbleSortAsc(vArray)
Else