Hallo Mike,

dafür bietet die Funktion TextInSpalten die Option feste Breite. Hier kannst du nach einer beliebigen Anzahl Zeichen eine Spaltentrennung setzen. In deinem Fall wird nach jedem einzelnen Zeichen getrennt. Probier dazu mal folgenden Code.

Sub TextInSpalten()

   Dim arr(), i As Long
   
   For i = 0 To 1000
     ReDim Preserve arr(i)
     arr(i) = Array(i, 1)
   Next i
   
   Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=arr, TrailingMinusNumbers:=True
  
End Sub

Falls es immer noch zu lange dauert, ersetze Range("A:A") durch z.b. Range("A1:A15000")

Gruß Mr. K.