Dim ret() As Long
'Zahlen generieren
ret = GenerateZahlen(ArrWrappers)
 
Open "test.txt" For Output As #1
For i = 0 To UBound(ret, 2)
    Dim IstZahlAufsteigend As Boolean
    IstZahlAufsteigend = True
    For j = 0 To UBound(ret, 1) - 1
        If ret(j + 1, i) < ret(j, i) Then IstZahlAufsteigend = False
    Next
 
    If IstZahlAufsteigend Then
        Dim s As String
        s = ""
        For j = 0 To UBound(ret, 1)
            s = s & ret(j, i) & " "
        Next
        Print #1, s
    End If
Next
Close #1