Text splitten in Zellen nebeneinander
Ewald
habe ein Makro aus diesem Forum das Text aus einer mehrzeiligen Textbox aufsplittet jeweils in eine Zelle.
Das funktioniert auch bis auf eine Sache.
Es schreibt den Text in Zellen untereinander (A1:A3), brauche aber Zellen nebeneinander (A1:C1)
Vielleicht hat ja jemand eine Lösung
Ach ja, das Makro
Sub Split_TBZ()
Dim arr As Variant
arr = Split(breakText(ActiveSheet.TextBox1, 27), vbLf) 'Parameter (Text, länge)
ActiveSheet.Range(Cells(1, 1), Cells(UBound(arr, 1) + 1, 1)) = Application.Transpose(arr)
End Sub
die zugehörige Funktion
Public Function breakText(ByVal text As String, ByVal länge As Integer) As String
Dim tmp As String, str As String
Dim lenT As Integer, i As Integer, n As Integer
lenT = Len(text)
n = 1
i = 1
Do
tmp = Mid(text, i, länge)
If lenT - i >= länge Then
n = Len(tmp) - InStr(1, StrReverse(tmp), " ") + 1
Else
n = Len(tmp)
End If
str = str & Trim(Left(tmp, n)) & vbLf
i = i + n
Loop While i Gruß Ewald Sadowski