Option Explicit
Public Sub test()
Dim astrArray() As String
Dim strText As String
strText = "Diese Viele neuen alte Autos Fahrräder fahren können auch weiter nicht gut wirklich genutzt besser werden . ."
astrArray = Split(Expression:=strText)
Cells(1, 1).Resize(UBound(astrArray) + 1, 1).Value = WorksheetFunction.Transpose(astrArray())
End Sub
Public Function MY_CUSTOM_ARRAY(ByRef pravntValues() As Variant, _
Optional ByVal opvlngStartIndex As Long = 1) As String()
Dim astrTemp() As String
Dim ialngIndex As Long, ialngCount As Long
If opvlngStartIndex > 0 Then
ReDim astrTemp(UBound(pravntValues, 1) \ 2) As String
For ialngIndex = opvlngStartIndex To UBound(pravntValues, 1) Step 2
astrTemp(ialngCount) = pravntValues(ialngIndex, 1)
ialngCount = ialngCount + 1
Next
MY_CUSTOM_ARRAY = astrTemp()
End If
End Function
Public Sub prcOutput()
Dim avntArray() As Variant
avntArray = Cells(1, 1).Resize(18, 1).Value
MsgBox Join$(SourceArray:=MY_CUSTOM_ARRAY(avntArray), Delimiter:=vbCr)
End Sub