strText = strText & " " & strSchnipsel(n)

Gruss,

Zardoz

    strInput = Space$(lngLength) ' Gesamtstring mit Leerzeichen erstellen
    For n = 1 To colText.Count  ' Stückweise übergeben
        Mid$(strInput, lngPos, Len(colText.Item(n))) = colText.Item(n)
        lngPos = lngPos + Len(colText.Item(n)) + 1
    Next

Gruss,

Zardoz

mid

    dblTimer = Timer
    Debug.Print "Start Anzahl Items = " & colText.Count
    lngLength = 0   ' Gesamtlänge ermitteln
    For n = 1 To colText.Count
        lngLength = lngLength + Len(colText.Item(n)) + 1
    Next
    Debug.Print "Step1: " & Format$(Timer - dblTimer, "0.00"), "Länge = " & _
      lngLength
    dblTimer = Timer
    lngPos = 1
    strInput = Space$(lngLength) ' Gesamtstring mit Leerzeichen erstellen
    For n = 1 To colText.Count  ' Stückweise übergeben
        Mid(strInput, lngPos, Len(colText.Item(n))) = colText.Item(n)
        lngPos = lngPos + Len(colText.Item(n)) + 1
    Next
    Debug.Print "Step2: " & Format$(Timer - dblTimer, "0.00")

Start Anzahl Items = 9066
Step1: 0,19   Länge=86172
Step2: 0,63

    ReDim strWords(colText.Count)
 
    For n = 1 To colText.Count
        strWords(n - 1) = colText.Item(n)
    Next
    strInput = Join(strWords)

Private Function Array_to_Str(TxtLst() As String) As String
 
  Dim i&, Txt$, C$
 
  Call QuickSort(TxtLst, LBound(TxtLst), UBound(TxtLst))
  C = Chr$(1)
  Txt = C
  For i = LBound(TxtLst) To UBound(TxtLst)
    If Txt = TxtLst(i) Then
      TxtLst(i) = C
    Else
      Txt = TxtLst(i)
    End If
  Next i
  Array_to_Str = Join(Filter(TxtLst, C, False))
 
End Function
 
Private Sub QuickSort(SortArr() As String, ByVal LB As Long, ByVal UB As Long)
 
  Dim P1&, P2&, Pivot$, Tmp$
 
  P1 = LB
  P2 = UB
  Pivot = SortArr((P1 + P2) / 2)
  Do
    Do While SortArr(P1) < Pivot: P1 = P1 + 1: Loop
    Do While SortArr(P2) > Pivot: P2 = P2 - 1: Loop
    If P1 <= P2 Then
      Tmp = SortArr(P1): SortArr(P1) = SortArr(P2): SortArr(P2) = Tmp
      P1 = P1 + 1
      P2 = P2 - 1
    End If
  Loop Until P1 > P2
  If LB < P2 Then Call QuickSort(SortArr, LB, P2)
  If P1 < UB Then Call QuickSort(SortArr, P1, UB)
 
End Sub

Gruss,

Zardoz