Counting Expression in a Single formula

G

GarrettD78

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
 
B

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)
 
G

GarrettD78

Thanks. That was perfect

Bob Phillips said:
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)
Click to expand...
 
Top