Excel aufmöbeln mit VBA

BubbleSort = BubbleSortDsc(vArray)
End If
End Function
Sub Testbubble()
Dim anz As Long
anz = 80
Dim v As Variant
ReDim v(anz)
Dim aus As String
Dim i As Long
For i = 1 To anz
v(i) = Chr(Int(Rnd * (90 - 65 + 1) + 65))
Next i
’ Im Vektor befinden sich große Buchstaben von A bis Z
aus = "Unsortiert: " & vbTab & Vec2String(v) & vbNewLine
i = BubbleSort(v, True)
aus = aus & "Sortiert: " & vbTab & Vec2String(v)
MsgBox aus & " i = " & i
aus = "Unsortiert: " & vbTab & Vec2String(v) & vbNewLine
i = BubbleSort(v, False)
aus = aus & "Sortiert: " & vbTab & Vec2String(v)
MsgBox aus & " i = " & i
End Sub
SwitchZ1Z2
Z1 Z2
Z1 Z2 Z1 Z2
Sub SwitchZ1Z2(ByRef m As Variant, ByVal Z1 As Long,_
ByVal Z2 As Long)
If (Z1 < LBound(m, 1) Or Z1 > UBound(m, 1)) Then Exit Sub
If (Z2 < LBound(m, 1) Or Z2 > UBound(m, 1)) Then Exit Sub
Dim s As Long
Dim H As Variant
For s = LBound(m, 2) To UBound(m, 2)
H = m(Z1, s)
m(Z1, s) = m(Z2, s)
m(Z2, s) = H
Next s
End Sub