Sortierung v. Array n. Dimensionentausch fehlerh.

Hallo Herber Fans,
ich versuche mich gerade an der Sortierung eines Arrays. In einer ersten Version von Erich wurde das Array mit Row und Column Angaben von Fundstellen befüllt und anschließend so sortiert, daß die Fundstellen ausgehend von Cells(1,1) in ihrer korrekten Reihenfolge erscheinen. Da ich die Suchkriterien modifizierte, um den Code weniger anfällig zu machen, bekam ich einen Fehler im Redim Preserve, da die erste Dimension Redimed werden sollte, was nicht geht. Also habe ich es umgestellt. Zwei Fixe Zeilen im Array, dafür werden die Spalten entsprechend der Anzahl der Fundstellen neu dimensioniert. Nun funktioniert die Sortierung nicht mehr. Ich ahnte es schon und habe mich seit ca. Zwei Stunden an der Fehlerbehebung versucht. In Sachen Array komme ich schon ganz gut klar, aber mit einer Sortierung nach zwei Kriterien noch nicht. Der Code ist für meinen Kenntnisstand zu komplex.
Ich will diesen aber als Beispiel verwenden, um es zu lernen.
Kann mir einer von Euch sagen, an welcher entscheidenden Stelle der Fehler liegt? Was muß ich umstellen, damit es funktioniert.
Wenn ich diesen und einen funktionierenden Code miteinander vergleiche, hoffe ich die Logik zu kapieren.
https://www.herber.de/bbs/user/58724.xls
Vielen Dank und Grüße, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Andreas,
M.E. geht das so nicht da der Quicksort von Max immer zeilenweise sortiert, auch wenn Du die Spaltennummern nach denen sortiert werden soll in einem Array vorgeben kannst.
Versuche das vielleicht mal so.
cu, Bernd
--

Option Explicit

'# # # Codes für die Guided Tour_START # # #
Sub FindCells()
    Dim SuchRange As Range, rngF As Range, rngC As Range
    Dim arrZs(), lngA As Long, lngC As Long, i As Long

    Set rngF = Range(Cells(1, 1), Cells(40, 15)).SpecialCells(xlCellTypeAllValidation)

    i = 0
    ' Array gross genug machen, dann spart man sich die vielen Preserves
    Redim arrZs(1 To 2, 1 To rngF.Count)
    For Each rngC In rngF
        If rngC.Validation.ShowInput = True Then
            i = i + 1
            arrZs(1, i) = rngC.Row
            arrZs(2, i) = rngC.Column
        End If
    Next rngC

    ' einer am Ende muss nun aber (meistens) sein
    If i <> UBound(arrZs, 2) Then Redim Preserve arrZs(1 To 2, 1 To i)
    ' Zeilen und Spalten im Array vertauschen
    arrZs = WorksheetFunction.Transpose(arrZs)

    'TESTDEBUG
    For i = 1 To UBound(arrZs)
        Debug.Print "unsorted: Rows("; arrZs(i, 1); ") Column("; arrZs(i, 2); ")"
    Next i

    prcQuicksort Array(1, 2), arrZs()

    'TESTDEBUG
    Debug.Print vbLf
    For i = 1 To UBound(arrZs)
        Debug.Print "sorted : Rows("; arrZs(i, 1); ") Column("; arrZs(i, 2); ")"
    Next i

    For i = 1 To UBound(arrZs)
        Cells(arrZs(i, 1), arrZs(i, 2)).Select 'Die Reihenfolge ist vertauscht?
        'Die Reihenfolge der Aktivierung ist derzeit: Meldung 1, 2, 3, 4
        'Soll aber sein: Meldung 1, 4, 3, 2
        Application.Wait Now + TimeSerial(0, 0, 2)
    Next i
End Sub

Beliebteste Forumthreads (12 Monate)

Sortierung v. Array n. Dimensionentausch fehlerh.

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread