VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Holger	Datum: 11.03.2008 09:50:56	Views: 1019	Rating:	Antwort:
Thema: Aw:Sortieren in Arrays
Hallo Sebastian, Bibliotheksfunktionen sind mir nicht bekannt. Ich schicke dir mal einen einfachen Algorithmus zum Sortieren des Arrays Spr(n,m), das das Ergebnis wieder in Spr(n,m) zurückschreibt und für nicht allzugroße n und m hinreichend ist. Du kannst es ja modifizieren. ReDim ZwSp(UBound(Spr, 2)) For k = 0 To UBound(Spr, 1) - 1 For i = k + 1 To UBound(Spr, 1) If Spr(a, i) For j = 0 To UBound(ZwSp) ZwSp(j) = Spr(j, i) Next j For j = 0 To UBound(ZwSp) Spr(j, i) = Spr(j, k) Next j For j = 0 To UBound(ZwSp) Spr(j, k) = ZwSp(j) Next j End If Next i Next k Gruß Holger Sebastian schrieb am 10.03.2008 18:29:22: Hallo ihr VBA Experten, meine Frage bezieht sich auf Sortieralgorithmen in VBA. Gibt es da Bibliotheksfunktionen auf die man zugreifen kann? Wenn ich zum Beispiel ein Array (n,2) habe und in der 1. Spalte verschiedene Werte stehen, diese in einem neuen Array der Größe nach ordnen möchte. Die Werte von der 2. Splate gehören zu den jeweiligen der Spalte 1, je Zeile. Was würdet ihr da raten und, ab wann ist es sinnvoll daraus ein Objekt zu machen? Ist es möglich sowas wie Listen zu verwenden, soll heißen das man 1. Zahlenpaar in den 2. Array überführt und dann nach und nach die Zahlenpaare vom 1. in der 2. Array sortiert? MfG

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen