substring (alternate) coloring

[acol]

Hi All
I have a lot of cells, containing multiple substrings.
To make it more readable I would want some VBA code that:
* for all selected cells
* based on a given delimiter (mostly "; ")
* colors the strings alternately using 2 colors
(eg. string1 (+delimiter)(blue), string2 (+delimiter)(red), string3 (+delimiter)(blue), string4 (+delimiter)(red), etc...

I think this might be quite straight forward, but I lack the knowledge to figure it quite out.
Can anyone help me out?
Thank you

 

[Peter_SSs]

See if this is what you want.

Sub ColourSubstrings()
  Dim itm As Variant
  Dim c As Range
  Dim k As Long, clr As Long
  
  For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
    clr = vbBlue
    k = 1
    For Each itm In Split(c.Value, ";")
      c.Characters(k, Len(itm) + 1).Font.Color = clr
      clr = IIf(clr = vbBlue, vbRed, vbBlue)
      k = k + Len(itm) + 1
    Next itm
  Next c
End Sub

Here is my original data

acol.xlsm
	A
1	data 1;data 2;other data 3;and even longer data 4
2	some text;some othrt text
3
Sheet1 (3)

.. and after the code ..

Is that what you were after?

 

[acol]

See if this is what you want.

Sub ColourSubstrings()
  Dim itm As Variant
  Dim c As Range
  Dim k As Long, clr As Long
 
  For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
    clr = vbBlue
    k = 1
    For Each itm In Split(c.Value, ";")
      c.Characters(k, Len(itm) + 1).Font.Color = clr
      clr = IIf(clr = vbBlue, vbRed, vbBlue)
      k = k + Len(itm) + 1
    Next itm
  Next c
End Sub

Here is my original data

acol.xlsm
	A
1	data 1;data 2;other data 3;and even longer data 4
2	some text;some othrt text
3
Sheet1 (3)

.. and after the code ..

View attachment 103034

Is that what you were after?

Indeed, This is it (completely)!
All of blessings on this Saint-Nicholas day!
Thank you

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.