Put this is D4
=personal.xls!SplitsItems($C$3,";",COLUMN()-4)
And the CF function is
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
I like the DATA text to columns better, but this is for learning and pleasure
Bookmarks