String splitsen

[harolda1980]

Nou zit ik toch even echt te zoeken naar een stukje code om een zin te splitsen op de :.

Kan iemand hierin helpen?

 

[HSV]

Hierbij twee stukjes code.

Sub hsv()
Dim sn
 sn = Split(Range("A1"), ":")
  Range("C1").Resize(, UBound(sn) + 1) = sn
End Sub

Sub hsvTwee()
Application.DisplayAlerts = False
    Range("A1").TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":"
Application.DisplayAlerts = true
End Sub