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

Tipp 1881: 2-dimensionales Array nach beliebiger Spalte sortieren
Autor: dh
Tipp anzeigenDatum: 17.10.08 09:26
Hallo Dieter, gute Idee! Könntest du einen Tipp geben, wie man den Code ändern könnte, damit auch absteigend sortiert wird? Grüße- Salzburger

Re: 2-dimensionales Array nach beliebiger Spalte sortieren
Autor: Dieter (Moderator)
Datum: 17.10.08 09:34
In diesem Fall würde es ausreichen, wenn Du das Array einfach rückwärts ausliest. _________________________ Professionelle Entwicklerkomponenten www.tools4vb.de

Re: 2-dimensionales Array nach beliebiger Spalte sortieren
Autor: stobi_de
Datum: 10.03.09 09:18
Hallo, na, das ist doch mal richtig nützlich. Aber wie könnte es anders sein, wenn man sich in einem Forum anmeldet: eine Frage hätte ich zu der Sache noch. Wenn ich nun in meinem Array mehrere Personen mit gleichem Namen habe, soll, ähnlich wie bei Datenbanken, ein weiteres Sortierkriterium greifen, z.B. das Alter oder die SatzID. Da stehe ich nun ein wenig auf dem Schlauch, wobei ich zugeben muß, das ich rekursiven Funktionen bisher möglichst aus dem Weg gegangen bin Gruß Frank Immer noch auf der Suche nach der Programmiersprache, die macht, was ich will. Nicht nach der, die macht, was ich ihr sage!

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

Re: 2-dimensionales Array nach beliebiger Spalte sortieren
Autor: OranjeHH
Datum: 18.01.21 17:14
Ich bin nicht sicher ob ich die richtige Zeile im Blick habe. Muss ich For u = lb_dim To ub_dim gegen For u = ub_dim to lb_dim step - 1 tauschen? mir schien das nicht richtig zu sein. Da ich damit, glaube ich, nur die Spaltenrichtung ändere.

Re: 2-dimensionales Array nach beliebiger Spalte sortieren
Autor: OranjeHH
Datum: 20.01.21 08:57
ich habe den Code bei Wertepaare tauschen probiert. Wie ich mir gedacht habe ohne Veränderung. Und ein drehen von Loop until (i < J) zu Loop until (i > j) hat zu einem Absturz geführt. ich möchte also noch mal fragen wie ich den Array rückwärts auslesen kann.

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