Office: Zweidimensionales Array sortieren

Guten Tag alle miteinander.

Ich habe hier ein zweispaltiges Array, wo in Spalte 1 eine Kategorie und in Spalte 2 ein Wert steht.Dieses Array soll sortiert werden. Im Netz habe ich viele Möglichkeiten gefunden, z.B. mit einem BubbleSort, ein eindimensionales Array zu sortieren, aber leider keine Möglichkeit, wie das mit einem zweidimensionalem gehen soll. Hat hier ein User evtl. einen Rat für mich? Das wäre super...

:)

 

Hallo Fritzchen_KI,

fast ohne Programmieraufwand könntest Du auf die WordBasic-Funktion "SortArray" zurückgreifen. (Mit Einschränkungen, was die Dimensionierung des Arrays angeht).

Ansonsten die "Werteumschichtung" im Algorithmus analog mit der 2. Spalte mitführen.

Grüße
EarlFred

Grüße
EarlFred

 

Auch Hallo,

Online - Excel Programmierung VBA Makro: Quicksort Spezial - Sortierkriterien und mehrere Spalten

cu, Bernd

 

Hallo,

danke für die Antworten. Habe jetzt bst's Tipp verfolgt (EarlFreds Tipp mit der Wertumschichtung für die 2. Spalte habe ich leider als relativer Anfänger nicht hinbekommen :-( ), und mir den Code in mein Projekt kopiert. Allerdings funktioniert das Sortieren nicht, die Elemente sind weiter so "sortiert" wie vor dem Aufruf.

So rufe ich es auf:

Dim vntSortArray As Variant

'die zu sortierenden Spalten
'negative Zahl = Spalte absteigend sortieren
'positive Zahl = Spalte aufsteigend sortieren
vntSortArray = Array(-2)

Call prcSort(vntSortArray, arrWerteAll())

For h = 1 To UBound(arrWerteAll)

Debug.Print arrWerteAll(h, 0) & " " & arrWerteAll(h, 1)

Next h

'Das Array "arrWerteAll" ist als Variant deklariert.

 

Morgen,

hier funktioniert das. Probiere mal dieses, geht das bei Dir?

cu, Bernd
--
Code:

 

Moin moin,

hmm, also das funktioniert bei mir. Habe jetzt mal ein wenig bei mir am Code rumprobiert und geändert... Jetzt funktioniert das Sortieren bei mir auch, allerdings nur aufsteigend und nicht absteigend :-/ Zu allem Überfluss weiß ich auch nicht mehr, was ich alles geändert habe... Aber Hauptsachte so in etwas läuft es jetzt. Vielen Dank für die Hilfe

 

Hallo
ich hab auch ein Array zu sortieren, komme mit dem Code aber nicht ganz klar.
Wie muß ich es modifizieren, damit ich mein Array [Familie(1 to 40 , 1 to 5)] nach Spalte 1 aufsteigend sortieren kann?
Schönen Gruß
Reinhard

 

Moin!
Dieser alte Thread wurde widerrechtlich (also in Unkenntnis und ohne Erlaubnis des entsprechenden Forenbetreibers) hierhin kopiert!
Die Antworter waren hier niemals angemeldet!
Grob kann und darf man dies also als Diebstahl geistigen Eigentums bezeichnen.
Aber mal davon ab:
Warum sortierst Du nicht einfach die Tabelle?

Gruß Ralf

 

Oh Danke für die Info,

ich möchte das Array ca. bis zu-1000 mal befüllen , sortieren, bearbeiten und dann an Word Serienbrief übergeben. Ich denke das geht per Array schneller

 

Public Sub prcTest()

Dim Famile
Dim vntSortArray As Variant

Familie = Range("A1").Resize(40, 5).Value
vntSortArray = Array(-2)

Call prcSort(vntSortArray, Familie)

'Ausgabe Testarray
Application.ScreenUpdating = False
Range("A1").Resize(40, 5).Value = Familie
Application.ScreenUpdating = True

End Sub

 

Bei aktuellem Excel:

Code:

Sub t()
Dim a
a = Cells(1, 1).Resize(50, 5)
a = WorksheetFunction.Sort(a)
Cells(1, 7).Resize(50, 5) = a
End Sub