Zweidimensionales Array mehrfach sortieren
04.01.2017 21:42:43
Erik
ich versuche seit einiger Zeit ein zweidimensionales Array mehrfach zu sortieren. Es handelt sich dabei um ein Array, das in Spalte 3 und 4 Nachnamen und Vornamen von Klienten enthält. Ich möchte das Array gern erst nach den Vornamen und dann nach den Nachnamen sortieren.
Ich habe sowohl die Prozedur von Nepumuk bemüht (http://www.online-excel.de/excel/singsel_vba.php?f=97) als auch die reine QuickSort-Methode (http://www.vbarchiv.net/tipps/tipp_1881-2-dimensionales-array-nach-beliebiger-spalte-sortieren.html).
Beides führt leider nicht zum Erfolg. Zwar ist das gesamte Array am Ende nach den Nachnamen sortiert, aber innerhalb gleicher Nachnamen stimmt die Sortierung der Vornamen nicht mehr.
Erschwerend kommt hinzu, dass bei der Methode von Nepumuk bei Angabe bestimmter Spalten (in meinem Fall Spalte 3), die Prozedur mit "Index außerhalb des gültigen Bereichs" aussteigt, bei Spalte 1, 2 und 4 aber anstandslos arbeitet.
Die Zeile, wo sie aussteigt ist, liegt in der Prozedur "prcSort" ziemlich am Ende:
lngRowsArray(0, lngRowsCount) = lngRowsArray(1, lngIndex1 + 1)
Ich würde mich sehr drüber freuen, wenn mir jemand einen Tipp geben könnte, warum die Methoden nicht wie gewünscht funktionieren (Vielleicht liegt es auch am 64bit-System?).
Gutes Neues und besten Dank
Erik