Привет,

я в VB не соображаю, а мне надо получить отсортированный список элементов склееный в одну строку. Для этого я нашел на просторах интернета подходящую функцию

Function concat(ByRef range As range, comma As String) As String
Dim rng As range
   For Each rng In range
      If rng <> "" Then
      concat = concat & rng & comma
      End If
   Next
If Len(concat) > 0 Then _
    concat = Left(concat, Len(concat) - Len(comma))
End Function

Она работает нормально, но результат получается неотсортированный.

Я пробую добавить вызов ".Sort"

   For Each rng In range.Sort

Но тогда функция перестает работать. Пишет "#WERT!", что по английски наверное было бы "#VALUE!" наверное.

Как правильно отсортировать? вызываю функцию я так

=CONCAT(T4:AH4;ZEICHEN(10))

Где ZEICHEN это вроде как CHR(10), тоесть перевод строки.

Помогите, ну не врублюсь я никак в загадочный синтакс VB.

Спасибо