farbige Sortierfunktion
20.11.2019 00:30:53
Steve
Ich habe nochmal eine Frage zu meiner Sortierfunktion. Dank Daniel funktioniert sie super.
hier nochmal der Code:
Sub Sortieren()
Dim arr
Dim z As Long, s As Long
Dim SortText() As String
Dim B As String
Dim i As Long
With Range("a1:A3")
arr = .Value
For z = 1 To UBound(arr, 1)
For s = 1 To UBound(arr, 2)
ReDim SortText(1 To 255)
For i = 1 To Len(arr(z, s))
B = Mid(arr(z, s), i, 1)
SortText(Asc(B)) = B
Next
arr(z, s) = Join(SortText, "")
Next
Next
.offset(3,0).Value = arr
End With
End Sub
nun meine Frage:
die Zeichenketten in den Zellen von a1:a3 werden über Verketten aus Einzelstrings von b1:b3 und c1:c3 gebildet.
z.B.
a1 => dac weil b1 => d und c1 => ac
a2 => cae weil b2 => c und c2 => ae
a3 => ead weil b3 => e und c3 => ad
Sortierergebnis in a4 => acd / a5 => ace / a6 => ade
Kann ich die einzelnen Buchstaben nun einzeln einfärben je nachdem ob sie aus b1:b3 oder c1:c3 kommt?
Geht das schon innerhalb des arrays oder muss ich das separat machen?