Never mind, I did some research, implemented it, and that is awesome.

thanks so much,

"Sheeloo" wrote:

Try the User Defined Function
Function splitSum(rng As Range) As Integer
x = Split(rng, ";")
Sum = 0
For i = 0 To UBound(x)
Sum = Sum + Right(x(i), 2)
Next i
splitSum = Sum
End Function

with GBR 4; FRA 5; USA 11; USD 12; GBR 54 in A1
=splitSum(A1)
will give you 86

-------------------------------------
Pl. click ''''Yes'''' if this was helpful...



"kookie" wrote:

I need to summ the numeris value of a cell string. The input of the cell will
be alphanumeric and semicolon delimited.

Example:
A1 = GBR 4; FRA 5; USA 11
result B1 = 20 (4+5+11)

I have come up with a few working examples but I would like to do it in less
steps and cells.

in b1 now I have
=VALUE(IF(ISERROR(RIGHT(LEFT(A1&";",(FIND(CHAR(1), SUBSTITUTE(A1&";",";",CHAR(1),1))-1)),1)),0,RIGHT(LEFT(A1&";",(FIND(CHAR(1),SUBSTITU TE(A1&";",";",CHAR(1),1))-1)),1)))

I added ";" because i am using that for my reference and going 2 digits
left. numbers will not be larger than 99 and the text will be 3 digits with
space. the number of entries are unknown.

so in c1 I added this formula

=VALUE(IF(ISERROR(RIGHT(LEFT(A1&";",(FIND(CHAR(1), SUBSTITUTE(A1&";",";",CHAR(1),2))-1)),2)),0,RIGHT(LEFT(A1&";",(FIND(CHAR(1),SUBSTITU TE(A1&";",";",CHAR(1),2))-1)),2)))

I continue this through the columns 15 more times. Then I sum the results in
another column.

I when I tried to put all the formulas in the SUM() in a cell received an
error nesting exceeded. I have to do the if because for the iserror when
there is no number.
A1 may have 3 entries and B1 may have 6.

Is there a way, formula, or vb that can be used to sum the numbers os a cell
string array?