Hi,

Am Wed, 6 Jun 2018 18:03:17 +0200 schrieb Claus Busch:

=LEFT(A1,FIND("""",A1)-1)+MID(A1,FIND("""",A1)+1,FIND("/",A1)-FIND("""",A1)-1)/MID(A1,FIND("/",A1)+1,2)

you can also try it with an UDF.
Copy the code into a standard module:

Function Deci(myRng As Range) As Double
Dim varData As Variant
Dim varTmp As Variant

varData = Split(myRng, """")
varTmp = Split(varData(1), "/")
Deci = varData(0) + varTmp(0) / varTmp(1)
End Function

and call the function on the sheet with e.g.

=Deci(A1)


Regards
Claus B.
--
Windows10
Office 2016