Counting Expression in a Single formula

[Guest]

I am trying to figure out a way to count up the number of expressions in a
formula that was created. So for example

=8+10+44+53

This would give me 4. Seems like you should be able to do it but I am not
sure how. Thanks in advance

 

[Bob Phillips]

I gave a simple UDF the other day that works for simple + delimiters

Function CountList(rng As Range, Optional delimiter As String = "+")
Dim arg
If rng.Count > 1 Then
CountList = CVErr(xlErrRef)
Else
arg = Split(rng.Formula, delimiter)
CountList = UBound(arg) - LBound(arg) + 1
End If
End Function



--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Don Guillett]

if always + then try this
=SUM(LEN(SUBSTITUTE(F10,"+","")))+1

 

[Guest]

Thanks. That was perfect

I gave a simple UDF the other day that works for simple + delimiters

Function CountList(rng As Range, Optional delimiter As String = "+")
Dim arg
If rng.Count > 1 Then
CountList = CVErr(xlErrRef)
Else
arg = Split(rng.Formula, delimiter)
CountList = UBound(arg) - LBound(arg) + 1
End If
End Function



--

HTH

RP
(remove nothere from the email address if mailing direct)