'bTausch = damit, wenn alles richtig ist, die schleife verlassen wird
'zTausch = Merkvariable
'lx = Variable
'Abstand = Abstand zwischen den Vergleichsparametern
 
Abstand = UBound(ArrayD, 2) / 25
 
If Abstand < 1 Then
    Abstand = 2
ElseIf Abstand < 10 Then
    Abstand = 4
End If
 
Do While Abstand >= 1
    Do
    bTausch = False
        For lx = LBound(ArrayD, 2) To (UBound(ArrayD, 2) - Abstand)
        ' Ist das ganze nicht gleich...
            If StrComp(ArrayD(1, lx ), ArrayD(1, lx + Abstand), 1) = 1 Then
                zTausch = ArrayD(1, lx )
                ArrayD(1, lx ) = ArrayD(1, lx + Abstand)
                ArrayD(1, lx + Abstand) = zTausch
                bTausch = True
            ElseIf StrComp(ArrayD(1, lx ), ArrayD(1, lx + Abstand), 1) = 0 Then
               ' da muss dann der zweite Vergleich rein...              
            End If
        Next
    Loop While bTausch = True
    Abstand = Abstand / 2
Loop