Benutzerdefiniertes Sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sort_Neu() Dim rng As Range Dim wks As Worksheet Dim arrTemp Set wks = ActiveWorkbook.Worksheets("x") With wks Sheets("x").Select Application.ScreenUpdating = False '3 Hilfs-Spalten einfügen .Range("B:D").Insert .Range("B:C").NumberFormat = "0" .Range("D:D").NumberFormat = "@" For Each rng In .Range("A1").CurrentRegion.Cells With rng .Offset(0, 1) = Val(.Value) .Offset(0, 2) = IIf(Left(.Text, 1) = 0, 1, 0) .Offset(0, 3) = Right(.Value, Len(.Value) - _ Len(.Offset(0, 1).Value) - .Offset(0, 2)) End With Next rng .Range("A1").CurrentRegion.EntireRow.Sort _ Key1:=.Range("B1"), Order1:=xlAscending, _ Key2:=.Range("D1"), Order2:=xlAscending, _ Key3:=.Range("C1"), Order3:=xlAscending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom 'Header ggf. auf xlYes bzw.xlNo setzen wenn _ Titelzeile vorhanden bzw. nicht. Excel nicht raten lassen 'Hilfsspalten wieder löschen .Columns("B:D").Delete Application.ScreenUpdating = True End With End Sub

Morhn, Heinz;
im Prinzip ist das auch mit Fmln nicht allzu schwer, die Positionsnrn müssen nur sortierfähig umgeformt wdn, am besten zu DezimalZahlen, dann ist auch die Anwendung einer nach Größe listenden Xl-Fkt möglich. Irgendwelche zusätzlichen Hilfszellen sind dann ebenfalls nicht erforderlich (nur eine Sortierungsfml-Spalte).
Geht man von folgendem schematischen Aufbau einer Positionsnr aus, wäre sie so zu transformieren:
Präfix (fehlt oder 0) + eigentl_PosNr (Ziffern variierender Anzahl, 1.Ziffer≥1) + Suffix (1 Buchstabe)
Als Bsp gezeigt wurden 3 der 4 möglichen Kombinationen: Pn, Px+Pn, Pn+Sx
Vorstellbar wäre aber auch die Kombination Px+Pn+Sx. Da die Lösung ohnehin zwischen Px u.Sx unterscheiden muss, kann sie auch so gewählt wdn, dass dieser Fall ebenfalls abgedeckt ist. Und das sieht so aus: Pn + 2^(Px_exist)/1000=0,001|0,002 + (ASCII(Sx)-ASCII(@))/100 (zB: A→65-64⇒1/100⇒0,01)
Nach der Sortierung wdn die DezimalWerte wieder rückgewandelt, so dass eigentlich 2 Fmln anfallen. Dabei ist es am günstigsten, die Umwandlungs- und SortierFml als benannte Fml zu definieren, was den zusätzlichen Vorteil hat, dass die ihren Namen verwendende Rückwandlungszellfml nicht zur singularen MatrixFml wird, sondern eine normale ZellFml ist. Sie sähe dann so aus:
D22[:D36]:=WECHSELN(WENN(ISTGERADE(SortBasis*1000);"0";"")&GANZZAHL(SortBasis)&ZEICHEN(REST(TEXT(SortBasis;"0,00")*100;100)+64);"@";"")
Die benannte Fml wäre wie folgt zu definieren:
SortBasis:=KKLEINSTE(WENNFEHLER(--$A$22:$A$36;LINKS($A$22:$A$36;LÄNGE($A$22:$A$36)-1)+(CODE(RECHTS($A$22:$A$36))-64)%)+2^(LINKS($A$22:$A$36)="0")/1000;ZEILE(D1))
Um ihre Möglichkeiten zu testen, habe ich den Testdaten 6 weitere Positionsnrn hinzugefügt, so dass sie so aussehen:
A22:A36:{"IST";10000;"10000A";"010002";"0902";10001;10002;900;901;902;"010000A";"0901";"010000B";"902A";"0902A";"10000B"}
Dadurch müsste sich das vorgetragene Soll wie nachfolgend verschieben:
{"Sortierfolge";900;901;"";902;"0902";"";"";10000;"10000A";"";"";"";10001;10002;"010002"}
Und das Ergebnis der beiden kombinierten Fmln sieht dann so aus:
{"ERG";"900";"901";"0901";"902";"0902";"902A";"0902A";"10000";"10000A";"010000A";"10000B";"010000B";"10001";"10002";"010002"}
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread