Hallo allerseits,
Ich habe folgendes Problem: Ich habe mehrere Werte in Splate 3-12 / C-L. Diese Werte haette ich gerne aufsteigend sortiert in der Zelle in Spalte 2 / B. Dabei ist es nicht noetig, um mehrfache Werte zu loeschen. Im Gegenteil, ich haette auch gerne doppelte und evt. dreifache Werte in Spalte 2 / B.
Ich habe einen VBA-Code gefunden (siehe weiter unten), der teilweise funktioniert, aber auch nicht richtig, wie man bei den Eintraegen unter Collagen sehen kann.
Calcium oxalate |
350 |
350 |
|
|
|
|
|
|
|
|
|
Collagen |
1200, 1200, 1470, 1530, 1550, 1700, 1725, 290, 320, 910 |
290 |
320 |
1725 |
1200 |
1550 |
1700 |
1200 |
1470 |
1530 |
910 |
Collagen patch, Tail tendon, Archilles tendon |
1200, 1550, 1700 |
|
|
|
1200 |
1550 |
1700 |
|
|
|
|
Function CellSorter(Rng As Range, Delimiter As String, Optional ReverseIt As Boolean) As String
Dim Cell As Range
With CreateObject("System.Collections.ArrayList")
For Each Cell In Rng
If Len(Cell.Value) Then .Add Application.Trim(Cell.Value)
Next
.Sort
If ReverseIt Then .Reverse
CellSorter = Join(.ToArray, Delimiter)
End With
End Function
Kann mir hier jemand weiter helfen und den Code so anpassen, dass er macht, was ich will?
|