2-dimensionales Array nach beliebiger Spalte sortieren Mit dieser Funktion lässt sich ein 2-dimensionales Array beliebiger Daten nach einer bestimmten Spalte sortieren
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  53.306
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man ein einfaches Array sortieren kann, haben wir bereits mehrfach gezeigt.

Wie sieht es aber mit einem 2-dimensionalen Array, das nach einer bestimmten Spalte sortiert werden soll?

Index	Nr	Name	Alter	Datum	ID
0	1	Otter Dieter	35	05.05.1973	981
1	2	Meier Julia	33	12.08.1974	851
2	3	Müller Hugo	49	01.12.1958	612
3	4	...

Genau das zeigen wir Ihnen heute mit diesem Tipp!

' vSort: 2-dimensionales Array
' index: Spalte, nach der sortiert werden soll (1, 2, 3, ...)
Public Sub QuickSortMultiDim(vSort As Variant, _
  Optional ByVal index As Integer = 1, _
  Optional ByVal lngStart As Variant, _
  Optional ByVal lngEnd As Variant)
 
  ' Wird die Bereichsgrenze nicht angegeben,
  ' so wird das gesamte Array sortiert
 
  If IsMissing(lngStart) Then lngStart = LBound(vSort)
  If IsMissing(lngEnd) Then lngEnd = UBound(vSort)
 
  Dim i As Long
  Dim j As Long
  Dim h As Variant
  Dim x As Variant
  Dim u As Long
  Dim lb_dim As Integer
  Dim ub_dim As Integer
 
  ' Anzahl Elemente pro Datenzeile
  lb_dim = LBound(vSort, 2)
  ub_dim = UBound(vSort, 2)
 
  i = lngStart: j = lngEnd
  x = vSort((lngStart + lngEnd) / 2, index - 1)
 
  ' Array aufteilen
  Do
 
    While (vSort(i, index - 1) < x): i = i + 1: Wend
    While (vSort(j, index - 1) > x): j = j - 1: Wend
 
    If (i <= j) Then
      ' Wertepaare miteinander tauschen
      For u = lb_dim To ub_dim
        h = vSort(i, u)
        vSort(i, u) = vSort(j, u)
        vSort(j, u) = h
      Next u
      i = i + 1: j = j - 1
    End If
  Loop Until (i > j)
 
  ' Rekursion (Funktion ruft sich selbst auf)
  If (lngStart < j) Then QuickSortMultiDim vSort, index, lngStart, j
  If (i < lngEnd) Then QuickSortMultiDim vSort, index, i, lngEnd
End Sub

Kleines Anwendungsbeispiel:
Wir bilden obige Tabelle in einem 2-dimensionalen Array ab und möchten dieses dann nach der Datumsspalte (Spalte 4) sortieren.

' 2-dimensionales Array
' 10 Zeilen á 5 Spalten
Dim MyData(0 To 9, 0 To 4)

' Array füllen
AddToArray MyData, 0, 1, "Otter Dieter", 35, CDate("05.05.1973"), 981
AddToArray MyData, 1, 2, "Meier Julia", 33, CDate("12.08.1974"), 851
AddToArray MyData, 2, 3, "Müller Hugo", 49, CDate("01.12.1958"), 612
AddToArray MyData, 3, 4, "Schmitt Hans", 26, CDate("19.02.1981"), 971
AddToArray MyData, 4, 5, "Müller Anton", 71, CDate("13.10.1968"), 421
AddToArray MyData, 5, 6, "Maier H.", 17, CDate("16.04.1986"), 468
AddToArray MyData, 6, 7, "roSoft", 48, CDate("27.12.1952"), 419
AddToArray MyData, 7, 8, "Mustermann Max", 74, CDate("02.06.1971"), 149
AddToArray MyData, 8, 9, "Schmidt G.", 62, CDate("17.02.1952"), 148
AddToArray MyData, 9, 10, "A. Herbert", 27, CDate("26.11.1963"), 174
 
' Array nach 4. Spalte sortieren
QuickSortMultiDim MyData, 4

' Hilfsfunktion: 2-dimensionales Array schneller füllen
Private Function AddToArray(ByRef arDaten As Variant, _
  ByVal index As Long, _
  ParamArray values() As Variant)
 
  Dim i As Long
 
  For i = 0 To UBound(values)
    arDaten(index, i) = values(i)
  Next i
End Function