Selection sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo EtoPHG,
OK, VBA gut ist vielleicht etwas übertrieben, aber Anfänger bin ich auch nicht. Stellt sich auch die Frage, wann ist man gut. Muss man in einem Array selektierte Bezüge einlesen, sortieren und dann wieder auslesen können dann bin ich blutiger Anfänger! (Ich habe noch nie eine Array benötigt).
Bekommt man hier erst Hilfe wenn man alles beherrscht?
Es mag auch sein, dass Select in vielen Fällen überflüssig ist, aber manchmal ist es einfach einfach.
Ich handle nach dem System KISS! (Keep it simple, stupid) Was in diesem Fall Prinzipiell auch funktioniert. Nur die Reihenfolge ist halt leider exakt wie die Reihenfolge wie sie selektiert wurde.
Von oben nach unten ist schlicht und ergreifend Zeilenweise von Zeile 1 - n und innerhalb der Zeile von A-Z. Das Positive Bsp. habe ich bereits genannt A5; B6; A8; B8; A11; C12 ...
Ach ja, da hätte ich wahrscheinlich schon das nächste Problem mit dem Array. Wenn ich sortiere bekomme ich doch bestimmt erst alle A- Spalten dann B Spalten u.s.w. Das heißt ich muss nun auch noch alle Bezüge in Spalten und Zeilen zerlegen um die Reihenfolge richtig zu bekommen. Oder?
Gruß Berni

Also ehrlich gesagt, weiß ich nicht was ich noch sagen soll. Ich finde ich habe die Frage schon längst beantwortet.
Über aufgezeichnetem Code bin ich schon darüer hinaus und dass VBA gut etwas übertrieben ist habe ich auch schon zugegeben.
Ich versuche es noch einmal:
Kollege »A« bearbeitet die Mappe und ist der Meinung dass die Zellen "A1; B5; A10" relevant sind. Was soll er anderes tun als diese Zellen zu selektieren. Nun startet er das Makro, die Zellen werden gelb, es wird etwas berechnet, die Zellen werden von oben nach unten durchnummeriert und die Zelladressen werden in einem Namen ("Stufe_1")gespeichert.
in der Zelle "A1" steht dann "Zelle 1 Blabla"
in der Zelle "B5" steht dann "Zelle 2 Blabla"
in der Zelle "A10" steht dann "Zelle 3 Blabla"
Nun kommt Kollege »B« und findet die Zelle "B3" auch noch relevant. Er selektiert diese Zelle und startet das Makro. ( ... For Each ze In Union(Range("Stufe_1"), Selection).Cells ...)
Nur ohne sortieren ist nun meine Berechnung und meine Zellennummerierung falsch, da die
Abarbeitung von Excel in der Reihenfolge der Eingabe abläuft.
Somit steht in der Zelle "B3" nicht "Zelle 2 Blabla" sondern "Zelle 4 Blabla" weil diese als letztes hinzugefügt wurde.
Abarbeiten soll in der Reihenfolge
von oben nach unten also Zeilenweise von Zeile 1 - n und innerhalb der Zeile von A-Z erfolgen. Das Positive Bsp. habe ich bereits mehrfach genannt » A5; B6; A8; B8; A11; C12 ... «
und was ausser selection soll ich in diesem Fall eingeben?
Gruß Berni

Sub AuswahlSortieren() Dim cl As Range, cl2(), i As Integer, j As Integer, vTemp(1) For Each cl In Selection 'Zellbezüge einlesen ReDim Preserve cl2(2, i) cl2(0, i) = cl.Address 'Zum Sortieren die Zeilen-Nr. und 1/1000 der Spalten-Nr einlesen cl2(1, i) = cl.Row + cl.Column / 1000 i = i + 1 Next cl 'Array nach Zeilen- und Spalten-Nr. sortieren For j = UBound(cl2, 2) - 1 To LBound(cl2, 2) Step -1 ' Alle links davon liegenden Zeichen auf richtige Sortierung ' der jeweiligen Nachfolger überprüfen: For i = LBound(cl2, 2) To j ' Ist das aktuelle Element seinem Nachfolger gegenüber korrekt sortiert? If cl2(1, i) > cl2(1, i + 1) Then ' Element und seinen Nachfolger vertauschen. vTemp(0) = cl2(0, i) vTemp(1) = cl2(1, i) cl2(0, i) = cl2(0, i + 1) cl2(1, i) = cl2(1, i + 1) cl2(0, i + 1) = vTemp(0) cl2(1, i + 1) = vTemp(1) End If Next i Next j 'zur Kontrolle Ausgabe im Direktbereich For i = 0 To UBound(cl2, 2) Debug.Print cl2(0, i) Next End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread