In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ergänzung?
Autor: erich1961
Datum: 07.03.10 09:03
Hallo, ich stand vor dem Problem, daß ich nicht wusste, wie groß mein Array werden wird. Bei mir waren die die Zeilen in der 2. Dimension und die Spalten in der Ersten. Folgendes funktioniert soweit, bis auf den Index (der muß 1 höher sein als die zu sortierende Spalte: 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, 2) If IsMissing(lngEnd) Then lngEnd = UBound(vSort, 2) 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) ub_dim = UBound(vSort) i = lngStart: j = lngEnd x = vSort(index - 1, (lngStart + lngEnd) / 2) ' Array aufteilen Do While (vSort(index - 1, i) < x): i = i + 1: Wend While (vSort(index - 1, j) > x): j = j - 1: Wend If (i <= j) Then ' Wertepaare miteinander tauschen For u = lb_dim To ub_dim h = vSort(u, i) vSort(u, i) = vSort(u, j) vSort(u, j) = 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

Tipp 1881: 2-dimensionales Array nach beliebiger Spalte sort...	5.049	dh	17.10.08 09:26
Re: 2-dimensionales Array nach beliebiger Spalte sortieren	2.355	Dieter	17.10.08 09:34
Re: 2-dimensionales Array nach beliebiger Spalte sortieren	392	OranjeHH	18.01.21 17:14
Re: 2-dimensionales Array nach beliebiger Spalte sortieren	392	OranjeHH	20.01.21 08:57
Re: 2-dimensionales Array nach beliebiger Spalte sortieren	2.524	stobi_de	10.03.09 09:18
Ergänzung?	2.212	erich1961	07.03.10 09:03

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen