On Saturday, February 14, 2015 at 1:03:33 AM UTC-8, Claus Busch wrote:
Hi again,

Am Sat, 14 Feb 2015 09:45:42 +0100 schrieb Claus Busch:

=mysum(E1:F7;A1;A2)

or for all length of a string:

Function mySum(myRng As Range, str1 As Range, _
str2 As Range) As Double
Dim varData As Variant
Dim n As Long
Dim myStr As String
Dim lenSub As Long

varData = myRng
lenSub = Len(str1) + Len(str2) + 2
For n = 1 To UBound(varData)
myStr = Replace(Replace(varData(n, 1), str1, ""), str2, "")
If Len(Trim(myStr)) = Len(varData(n, 1)) - lenSub Then
mySum = mySum + varData(n, 2)
End If
Next
End Function


Regards
Claus B.



Thanks Claus, for both the UDFunctions

Howard