' Globales Array mit den Dimensionen
Public Feld(31, 100, 6)
 
Sub Sortieren()
Dim i, j ' Zähler für Zählerschleifen
 
	' Zählschleife i
	For i = 0 To 31
		For j = 0 to 6
			' Sortieren
			QSort i, j, 0, 100
		Next
	Next
End Sub
 
 
 
Sub QSort(ByRef DimA, ByRef DimC, ByVal vStart, ByVal vEnde)
Dim i, j, Vergleich
 
	' Startwerte für Sortierung des Bereichs festlegen
	i = vStart
	j = vEnde
 
	' Feldwert des mittleren Index ermitteln
	vVergleich = Feld(DimA, (vStart + vEnde) \ 2, DimC)
 
	' Schleife bis Zählerstart und Zählerende sich in der Mitte treffen
	Do While i <= j
		' nach dem größten Wert in der linken Hälfte des Bereichs suchen
		Do While Feld(DimA, i, DimC) < vVergleich
			i = i + 1
		Loop
		' nach dem kleinsten Wert in der rechten Hälte des Bereichs suchen
		Do While Feld(DimA, j, DimC) > vVergleich
			j = j - 1
		Loop
		' ist i kleiner gleich j? (Links ist ein größerer Wert als Rechts)
		If i <= j Then
			' ja, also Datenfelder austauschen
			SwapWerte i, j, DimA, DimC
			i = i + 1
			j = j - 1
		End If
	Loop
 
	' ist der Beginn des Bereiches noch kleiner als j?
	If vStart < j Then
		' ja, also QSort mit neuem Bereich aufrufen (linke Hälfte)
		QSort DimA, DimC, vStart, j
	End If
	' ist das Ende des Bereiches noch größer als i?
	If i < vEnde Then
		' ja, also QSort mit neuem Bereich aufrufen (rechte Hälfte)
		QSort DimA, DimC, i, vEnde
	End If
End Sub
 
 
 
Sub SwapWerte(ByRef DimA, ByRef DimC, ByRef Index1, ByRef Index2)
Dim vTemp
 
	' Werte tauschen
	vTemp = Feld(DimA, Index1, DimC)
	Feld(DimA, Index1, DimC) = Feld(DimA, Index2, DimC)
	Feld(DimA, Index2, DimC) = vTemp
End Sub