One of my MOST used UDF is the following
Function SplitsItems(ByVal Invoer As String, ChrStr As String, Index As Integer) As String
Dim myArray As Variant 'MyArray is a one-dimensional String Array
myArray = Split(Invoer, ChrStr) ' string uitsplitsen
If Index <= UBound(myArray) And Index >= LBound(myArray) Then ' What is the dimension of the Array. How many sub strings
SplitsItems = myArray(Index)
Else ' outside dimensions
SplitsItems = "Wrong Index"
End If
End Function
It's a code I've picked up somewhere and adjusted it to my needs. It splitses a sentence and returns single words. Good luck.
The 'single' words are now in B1 and on. Just copy, Paste special values into A1.
Bookmarks