Rem Anz = UBound(NSatzNr)
      For M = 1 To X
            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
                    Halt = True
                    Rem vps = vps + 1
                Else
                End If
            Next N
            If Halt = False Then Exit For
        Next M