' vSort: 2-dimensionales Array
    ' index: Spalte, nach der sortiert werden soll (1, 2, 3, ...) Sortiert 
    ' absteigend !! 
    Public Sub QuickSortMultiDim(ByVal vSort As Object, _
      Optional ByVal index As Integer = 1, _
       Optional ByVal lngStart As Object = 0, _
        Optional ByVal lngEnd As Object = 0)
 
        ' Wird die Bereichsgrenze nicht angegeben,
        ' so wird das gesamte Array sortiert
 
        If lngStart = 0 Then lngStart = LBound(vSort)
        If lngEnd = 0 Then lngEnd = UBound(vSort)
 
 
        Dim i As Long
        Dim j As Long
        Dim h As Object
        Dim x As Object
        Dim u As Long
        Dim lb_dim As Integer
        Dim ub_dim As Integer
 
        ' Anzahl Elemente pro Datenzeile
        lb_dim = LBound(vSort, 2)
        ub_dim = UBound(vSort, 2)
 
        i = lngStart : j = lngEnd
        x = vSort((lngStart + lngEnd) / 2, index - 1)
 
        ' Array aufteilen
        Do
 
            While (vSort(i, index - 1) < x) : i = i + 1 : End While
            While (vSort(j, index - 1) > x) : j = j - 1 : End While
 
            If (i <= j) Then
                ' Wertepaare miteinander tauschen
                For u = lb_dim To ub_dim
                    h = vSort(i, u)
                    vSort(i, u) = vSort(j, u)
                    vSort(j, u) = h
                Next u
                i = i + 1 : j = j - 1
            End If
        Loop Until (i > j)
 
        ' Rekursion (Funktion ruft sich selbst auf)
        If (lngStart < j) Then QuickSortMultiDim(vSort, index, lngStart, j)
        If (i < lngEnd) Then QuickSortMultiDim(vSort, index, i, lngEnd)
    End Sub