Do
            Halt = False
            For N = 1 To X - 1
                If NSatzNr(N) > NSatzNr(N + 1) Then
                    Temp = NSatzNr(N)
                    NSatzNr(N) = NSatzNr(N + 1)
                    NSatzNr(N + 1) = Temp
                    Temp2 = NSatzPos(N)
                    NSatzPos(N) = NSatzPos(N + 1)
                    NSatzPos(N + 1) = Temp2
                    Halt = True
                End If
            Next N
        Loop Until Halt = False