Alphabet. Sortieren Zeichen einer Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub jens() Dim arr, arrtmp, tmp, i arr = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) For i = 1 To UBound(arr) arrtmp = Split(arr(i, 1), "/") If arrtmp(0) > arrtmp(1) Then tmp = arrtmp(0) arrtmp(0) = arrtmp(1) arrtmp(1) = tmp End If arr(i, 1) = Join(arrtmp, "/") Next Cells(1, 1).Resize(UBound(arr)) = arr Cells(1, 1).Sort key1:=Cells(1, 1), order1:=xlAscending, Header:=xlNo End Sub

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

Beliebteste Forumthreads (12 Monate)

Alphabet. Sortieren Zeichen einer Zelle

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alphabet. Sortieren Zeichen einer Zelle

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread