'Modul: Sortieren eines zweidimensionalen Arrays (Variant)
    'nach einer oder mehreren Spalten (= 2. Dimension)
    Option Explicit
    Option Compare Binary  'Für Strings: Art des Vergleichs
 
    'Typ für die Vorgabe einer Sortierspalte
    Public Type tpSortInf
        'Index der zu sortierenden Spalte
        ColumnIndex As Long
        'Soll die Spalte ansteigend sortiert werden?
        SortAscending As Boolean
    End Type
 
        Public Sub SwapArrayRow(ByRef Array_To_Swap As Variant, _
            ByVal RowNumber1 As Long, ByVal RowNumber2 As Long)
 
            'Vertauschung des Dateninhalts von zwei "Zeilen"
            Dim help_elem As Variant, i As Long
            If RowNumber1 = RowNumber2 Then Exit Sub 'nix zu tun
            For i = LBound(Array_To_Swap, 2) To UBound(Array_To_Swap, 2)
                help_elem = Array_To_Swap(RowNumber1, i)
                Array_To_Swap(RowNumber1, i) = Array_To_Swap(RowNumber2, i)
                Array_To_Swap(RowNumber2, i) = help_elem
            Next i
 
        End Sub
 
        Public Function RandomLong(ByVal First As Long, ByVal Last As Long) As _
          Long
 
            'Zufalls-Ganzzahl im Bereich First, Last
            If First >= Last Then RandomLong = First: Exit Function
            RandomLong = CLng((Last - First + 1) * Rnd - 0.5) + First
        End Function