Alphabet. Sortieren Zeichen einer Zelle

Lars · 2022-01-25T15:12:42+00:00

Hallo zusammen, ich habe ein einfaches Beispiel für ein problem, dass ich aktuell nicht lösen kann. In einer Spalte (z.B. Spalte A) befinden sich Textinhalte. Zum Beispiel: A/B B/A C/D D/C Ich möchte nun Folgendes erreichen: der Inhalt der einzelen Zellen Soll nach Möglichkeit alphabetisch sortiert werden. Ich habe dies versucht, indem ich zuerst die Spalte nach Trennzeichen "/" getrennt habe, bin dann über transponieren, entpivotieren (in PQ), verschiedene Sortiermöglichkeiten etc. aber nicht zum gewünschten Ergebnis gekommen. Das Ergebnis sollte dann wie folgt aussehen A/B A/B C/D C/D Natürlich besitzt die Spalte, die ich in dieser Art aufbereiten möchte, weit über 1000 Zeilen, weshalb ich unbeding eine Formellösung, Lösung in PQ oder VBA benötigen würde. Eine Beispieldatei habe ich für diese 4 Zeilen jetzt nicht erstellt. Ich denke das Beispiel ist klar. Vielen Dank vorab. Grüße Lars

Hi Lars,
versuch es hiermit (und erst mal in einer Testdatei, in der du in Spalte A, beginnend in Zeile 1 deine gezeigten Bsp-Texte einträgst)


Sub sbSort()
Dim lloRow As Long, larstrSort() As String, liIdx As Integer, lloSort As Long
For lloRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
larstrSort = Split(Range("A" & lloRow).Value, "/")
For liIdx = 0 To UBound(larstrSort)
Range("Z" & liIdx + 1).Value = larstrSort(liIdx)
Next
With ActiveSheet.Sort.SortFields
.Clear
.Add2 Key:=Range("Z1:Z" & Cells(Rows.Count, 26).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With ActiveSheet.Sort
.SetRange Range("Z1:Z" & Cells(Rows.Count, 26).End(xlUp).Row)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A" & lloRow).Value = ""
For lloSort = 1 To Cells(Rows.Count, 26).End(xlUp).Row
Range("A" & lloRow).Value = Range("A" & lloRow).Value & Range("Z" & lloSort).Value & "/"
Next
Range("A" & lloRow).Value = Left(Range("A" & lloRow).Value, Len(Range("A" & lloRow).Value) - 1)
Range("Z1:Z" & Cells(Rows.Count, 26).End(xlUp).Row).Value = ""
Next
End Sub

1. Mein Code überträgt den Inhalt aus Zelle A1 in die Arrayvariable larstrSort mit Hilfe des Befehls SPLIT; Trennzeichen ist immer "/"
2. Nun werden die Inhalte aus larstrSort in die von mir gewählte Hilfsspalte Z übertragen
3. Spalte Z wird alphabetisch von A-Z sortiert
4. Die sortierten Inhalte aus Spalte Z werden, wieder mit Trennzeichen "/" in Zelle A1 eingetragen
5. Inhalte aus Spalte Z werden gelöscht
6. Ab hier wiederholt sich 1. bis 5. für Zelle A2
7. Ab hier wiederholt sich 1. bis 5. für Zelle A3
8. Ab hier wiederholt sich 1. bis 5. für Zelle A4
...usw...
Sehr wahrscheinlich wirst du im Code einiges anpassen müssen, z Bsp Startzeile für Spalte A (oder beginnen deine Daten auch in A1?)
Ist bei dir Spalte Z frei? Wenn nein, musst du natürlich eine andere Hilfsspalte verwenden und entsprechend auch überall den Code, wo steht...


Range("Z1:Z" & Cells(Rows.Count, 26).End(xlUp).Row)

...die 26 gegen die von dir verwendete Spaltennummer anpassen
Hilfts?
Ciao
Thorsten

…Lupo:
=WECHSELN(VJoin(SortBy(5;PSplit(WECHSELN(PickOn(I34;{5.6.4});"(";"("&PickOn(I34;{1.2.3})&" ");{"`) "."/"}));"/");"/";"";1)
I34 enthält Deinen Betreff.
Die 2× verwendete UDF PickOn stellt im ZusammenSpiel mit innerem WECHSELN die Reihenfolge der WortBlöcke um.
Die neue und erst im Rahmen einer größeren Arbeit nach deren Fertigstellung zur Publikation vorgesehene UDF PSplit (bzw TTrennen) trennt Texte ´vor, `nach, ^vor&nach, 'an definierter (2.') Stelle in TextTeil oder auf TrennBegriff (Zeichen bzw ~Kombi), wobei auch mehrere mit eigenen TrennTypen als MatrixKonstante angegeben wdn können.
Die ebenfalls unveröffentlichte UDF SortBy sortiert die von PSplit erzeugten TextBlöcke bzw EinzelBegriffe nach diversen Verfahren, mit Arg1=5 nach dem QuickSort-Algorithmus, der im Netz (auch auf Wikipedia) zu finden ist.
Die UDF VJoin verbindet die TextTeile wieder, während das äußere WECHSELN den 1., als einzigen Verbinder der TextTeile verwendeten / entfernt. VJoin ist in höheren Versionen auch in der Lage, MatrixKonstanten als Text zu erzeugen, die dann mit anderer UDF evaluiert wdn könnten, weil auch die Original-US-Form einstellbar ist. In der lokalen Form müsste dann die XLM-Fkt AUSWERTEN in benannter Fml verwendet wdn. Insofern und auch in anderer Beziehung entspricht VJoin nicht der neuen Xl-Fkt TEXTVERKETTEN (TextJoin), weshalb eine Anpassung an letztere, wie sie Bernd (sulprobil) für seine Verkettungs-UDF vorgenommen hat, für VJoin nicht infrage kommen kann.
Gruß, Luc :-?
PS: Ich betrachte Deine Versuche mit neuen Xl-Fktt eher als Fktstests, weniger als sinnvolle Alternativen zu einfacheren Lösungen, von Ausnahmen mal abgesehen… ;-)
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Alphabet. Sortieren Zeichen einer Zelle

Forumthread: Alphabet. Sortieren Zeichen einer Zelle

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Alphabet. Sortieren Zeichen einer Zelle

Forumthread: Alphabet. Sortieren Zeichen einer Zelle

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread