Office: Iterierend aufgerufene Funktion beenden (bei Array-Sortierung)

Hallo zusammen,

ich habe eine Funktion geschrieben, die mir eine bestimmte eingelesene "Spalte" in einem zweidimensionalen Array sortieren soll. Das funktioniert grundsätzlich auch soweit sehr gut.
Die Funktion ruft sich quasi immer wieder selbst auf und sortiert von neuem. Das Problem ist am Ende leider, dass die iterativ aufgerufenen Funktionen auch wieder verlassen werden wollen. Das möchte ich vorzeitig abbrechen, sobald der letzte Wert in meinem Array sortiert wurde. Kann mir jemand einen Tipp geben, wie ich das anstellen kann. Hier mal mein Code:

Code:

Sub TestSortierung()
    Dim arr_MyArr                   As Variant
    
    arr_MyArr = Worksheets(1).Range("A1:E20")
    ReDim Preserve arr_MyArr(1 To UBound(arr_MyArr), 1 To UBound(arr_MyArr, 2))
    arr_MyArr = fct_SortArray(Application.WorksheetFunction.Transpose(arr_MyArr), 5, False)
    
    Worksheets(1).Range("I1") = arr_MyArr
    
End Sub

Function fct_SortArray(ByVal arr_SortingArrayInput As Variant, ByVal int_SortCol As Integer, ByVal bool_SortAsc As Boolean) As Variant
    Dim arr_Temp()                As Variant
    
    
    int_NextArrCounter = 1
    For int_ArrCounter = LBound(arr_SortingArrayInput, 2) To UBound(arr_SortingArrayInput, 2)
        ReDim Preserve arr_Temp(1 To UBound(arr_SortingArrayInput), 1 To UBound(arr_SortingArrayInput, 2))
        
        int_NextArrCounter = int_NextArrCounter + 1
        
        If int_NextArrCounter > UBound(arr_SortingArrayInput, 2) Then
            Exit For
        End If
        
        If arr_SortingArrayInput(int_SortCol, int_ArrCounter) <= arr_SortingArrayInput(int_SortCol, int_NextArrCounter) Then
            For i = 1 To int_SortCol
                arr_Temp(i, int_ArrCounter) = arr_SortingArrayInput(i, int_ArrCounter)
            Next
            For i = 1 To int_SortCol
                arr_Temp(i, int_NextArrCounter) = arr_SortingArrayInput(i, int_NextArrCounter)
            Next
        Else
            For i = 1 To int_SortCol
                arr_Temp(i, int_ArrCounter) = arr_SortingArrayInput(i, int_NextArrCounter)
            Next
            For i = 1 To int_SortCol
                arr_Temp(i, int_NextArrCounter) = arr_SortingArrayInput(i, int_ArrCounter)
            Next
            For i = 1 To int_SortCol
                For x = int_NextArrCounter + 1 To UBound(arr_SortingArrayInput, 2)
                    arr_Temp(i, x) = arr_SortingArrayInput(i, x)
                Next
            Next
            If pub_SortFinished = True Then Exit Function
            arr_Temp = fct_SortArray(arr_Temp, int_SortCol, True)
            If pub_SortFinished = True Then
                fct_SortArray = arr_Temp
                Exit Function
            End If
        End If
    Next
    
    fct_SortArray = arr_Temp
    
End Function

Danke vorab schon mal.

 

Hallo enorix,

grundsätzlich irritiert mich die Aufgabenstellung... Warum soll eine Sortierung itterieren?
Falls Du nach mehreren Spalten sortieren möchtest gibt es da diverse Quicksort-Routinen, die das erledigen.

Am Ende der For-Schleife fragst Du die Variable pub_SortFinished ab, die du aber im restliche Code nie anfasst, geschweige denn zu Beginn definierst.
Sollte diese Variable True werden, verlässt Du die Funktion ohne dein arr_Temp in die Variable fct_SortArray zu schreiben, damit kehrst Du zurück ohne ein Ergebnis. Sicherlich sollte da ein Exit For stehen...

Gruß,
Lutz

 

Moin!
Darf ich fragen, warum das Rad neu erfunden werden soll?
Schließlich gibt es die Range.Sort-Methode.
Vielleicht(?) bin ich aber nur zu faul, das Besondere an dem Array-Gedöns zu erkennen.

Gruß Ralf