Funktion soll Array zurückliefern
Reinhard
im nachfolgenden Code von mir kommt leider bei
splitten = S
"typen unverträglich".
Ich möchte den Beispielstext in 10er Längen angezeigt bekommen.
Was mache ich falsch?
Danke ^ Gruß
Reinhard
Sub Test()
Dim N As Long, X
X = splitten("abcjkds skljdlöjd d öökföööf öfköfkfkkfökä fkfääfläfl fklkffäfläf")
For N = 0 To UBound(X)
MsgBox X(N)
Next N
End Sub
Public Function splitten(ByVal Text As String) As String()
Dim N As Long, S
Text = Trim(Text)
ReDim S(Int(Len(Text) / 10))
For N = 0 To UBound(S)
S(N) = Mid(Text, N * 10 + 1, 10)
S(N) = Trim(S(N))
Next N
splitten = S
End Function
Anzeige