Office: Array sortieren

Hallo,

ich möchte in VBA ein 2D Array nacheinander nach mehreren "Spalten" sortieren.
Das Array enthält diverse verschachtelte Nummerierungen in Spalte 1, 3 und 5, nach denen sortiert werden soll. Um es deutlicher zu machen, stelle ich das mal als Tabelle dar - das Feld hat z.B. 5 "Spalten" und 6 "Zeilen" und sieht z.B. so aus:

1. 1.2 1.2.1
3. 3.1 3.1.1
2. 2.1 2.1.1
1. 1.1 1.1.2
1. 1.1 1.1.1
2. 2.1 2.1.2

Nach der Sortierung soll das Feld also wie folgt aussehen:

1. 1.1 1.1.1
1. 1.1 1.1.2
1. 1.2 1.2.1
2. 2.1 2.1.1
2. 2.1 2.1.2
3. 3.1 3.1.1


heißt "beliebiger Text", der für die Sortierung keine Rolle spielt!!


Wie ich schon festgestellt habe, ist das Sortieren mit VBA nicht gerade top supported, eher ziemlich altbacken; z.B. VB.net ist da schon weiter. Ich bin aber auf VBA angewiesen! Wie kann ich das trotzdem mit vertretbarem Aufwand in VBA umsetzen? Ach und ja - halbwegs schnell sollte es auch sein.

Bin sehr dankbar für kompetente Hilfe!

stb122

:)

 

Hallo,

was verstehst Du unter Feld ?
Du sprichst von 5 Spalten, ich zähle aber 6.

Außerdem - warum sortierst Du nicht im Tabellenblatt. Mit 3 zu sortierenden Spalten überhaupt kein Problem und auch bei mehr als 6 Zeilen schnell.

Gruß
Aloys

 

Hallo,

da gibt es was von Max Kaffl: Online - Excel Programmierung VBA Makro: Quicksort Spezial - Sortierkriterien und mehrere Spalten

 

Sorry - bei der ersten Anzeige meines Arrays hat es zwei Spalten "verschluckt" *upps

Hier die richtige Anzeige. Das Array sieht zunächst z.B. so aus:


1. beliebigerText 1.2 beliebigerText 1.2.1
3. beliebigerText 3.1 beliebigerText 3.1.1
2. beliebigerText 2.1 beliebigerText 2.1.1
1. beliebigerText 1.1 beliebigerText 1.1.2
1. beliebigerText 1.1 beliebigerText 1.1.1
2. beliebigerText 2.1 beliebigerText 2.1.2


Und soll nach der Sortierung so aussehen:


1. beliebigerText 1.1 beliebigerText 1.1.1
1. beliebigerText 1.1 beliebigerText 1.1.2
1. beliebigerText 1.2 beliebigerText 1.2.1
2. beliebigerText 2.1 beliebigerText 2.1.1
2. beliebigerText 2.1 beliebigerText 2.1.2
3. beliebigerText 3.1 beliebigerText 3.1.1


Der "beliebigerText" ist für die Sortierung ohne Einfluss.

Ergo muss ich zunächst nach "Spalte" 1, anschließend nach Spalte 3 und daran anschließend nach Spalte 5 sortieren, aber immer unter Berücksichtigung der bereits vorher sortierten "Spalten"!

Ach ja, Sortieren mit Excel-Mitteln ist fehleranfällig und damit nicht erlaubt, sagt der Auftraggeber.
Es muss also mit VBA umgesetzt werden.

Wie könnte das aussehen?

Danke.

stb122

 

Hallo,

hast du den Link in meinem letzten Beitrag gesehen?

 

Hallo stb122,

Und dafür gibt es verschieden Lösungsmöglichkeiten.

Eine Alternative zum Quicksort wäre zB folgender Code;
Hier unterstelle ich mal, dass die Daten im Array arr vorliegen und nach dem Sortieren wieder im Array zurückgespeichert werden.
Das Sortieren selbst findet im Tabellenblatt statt.
Code:

Gruß
Aloys

 

Hat der Auftraggeber ein Beispiel für solche Fehler? Desweilen ist ja nur die Erwartung, was da rauskommen soll, fehlerhaft.
Code:

Das sind Zeichenketten und werden alphanumerisch sortiert, also die Zeichen von vorn. Das macht VBA genau so wie Excel oder auch andewre übliche mögliche Sortierungen.
Was sagst Du?

 

Hallo Klaus-Dieter,

Deine Antwort habe ich (nur etwas spät) gesehen.
Ich hatte versucht, den Code nachzuvollziehen.

Danke!

stb122

 

Hallo Aloys,

danke! Okay, im Tabellenblatt direkt zu sortieren sollte nicht das Problem sein.

Ich probiere das in Kürze, muss jetzt was anderes erledigen.

stb122

 

Hallo,

da sehe ich jetzt aber eine gewisse Diskrepanz in den Aussagen.

 

Hallo Klaus-Dieter,

ich habe es so verstanden, dass der Auftraggeber ein automatisches Sortieren wünscht und nicht will, dass seine Leute über das Excel-Menu sich händisch über Daten / Sortieren damit beschäftigen müssen.
Aus meiner Sicht braucht man dazu kein Array mit Quicksort. Es reicht m.E. eine Lösung, wie ich sie vorgeschlagen habe.

Gruß
Aloys

 

Wenn es so ist, wie Aloys schreibt, dann wäre Power Query eine souveräne Alternative. - Logisch sortieren (nacheinander Spalten 1, 3 5) und bei neuer Datenlage ist ein Automatismus drin.

 

Hallo,

aus meiner Sicht auch nicht, danach hattest du gefragt:

möglicherweise haben wir auch ein unterschiedliches Verständnis, was ein Array ist.