View Single Post
  #5   Report Post  
TemplateBuilder
 
Posts: n/a
Default

Hi Mulvaney,

I ran into the same problem and solved it making a simple VBA Function.

----------------------------------------------------------------------
Public Function NumPart(c) As String

Dim i As Integer
Dim Tekst As String

'Templatebuilder
'Returning numeric value from string'

Tekst = ""
For i = 1 To Len(c)
If InStr(1, "0123456789", Mid(c, i, 1), vbTextCompare) 0 Then
Tekst = Tekst + Mid(c, i, 1)
Next i

NumPart = Tekst

End Function
-------------------------------------------------

Now you can use the function in your worksheet. (example =numpart(A1))

Probably there will be other (maybe better) solutions. But this one is
working for me.

gr. TemplateBuilder