Sortieren in Zelle mit VBA
16.11.2021 14:15:18
Mike07
kann mir mal jemand den Code den ich angefangen habe vervollständigen, ich bin einfach zu lange raus as VBA um das auf die schnelle zu schaffen, so dass es funktioniert.
Ich möchte Werte die alle in einer einzigen Zelle stehen aufsteigend sortieren, aber nicht die erste Zeile in der Zelle, die Werte sind in der Zelle alle durch Zeilenumbruch getrennt. Unten ist auch das Excel File. Wäre super wenn jemand das schnell machen könnte zumindest im groben. Danke!
Excel File:
https://www.herber.de/bbs/user/149176.xlsm
Sub Sortieren()
Dim Ar() As String
Dim A As String
Dim Wert1 As Integer
Dim Wert2 As Integer
Dim Temp As String
Dim Ausgabe As String
A = Range(ActiveCell.Address).Value
Ar = Split(A, Chr(10))
For Wert1 = 0 To UBound(Ar)
For Wert2 = Wert1 + 1 To UBound(Ar)
If Ar(Wert1) > Ar(Wert2) Then
Temp = Ar(Wert1)
Ar(Wert1) = Ar(Wert2)
Ar(Wert1) = Temp
End If
Next Wert2
Next Wert1
Ausgabe = Join(Ar)
Range("D1").Value = Ausgabe
End Sub
Gruß