Kopieer een getal uit een string

[DannyGeysen]

Jongens,
Ik vind het even niet, wie kan er helpen?

In kolom D staan volgende waarden:
Bottom Depth: 4.1m
Bottom Depth: 6.53m
Bottom Depth: 5.82m
Bottom Depth: 5.73m
enz ...

Ik wil het getal uit de string (vb. 4.1) kopieren naar de kolom G

 

[Warme bakkertje]

Formule in G1

=DEEL(D1;15;4)

Voorwaarde is wel dat je steeds 2 cijfers na de komma gebruikt.

 

[DannyGeysen]

Hartelijk dank.

De gegevens komen zo binnen, soms met 1 decimaal, soms 2.
Ik heb het zelf niet in de hand.

 

[WHER]

Variatie op Rudi's formule.

 

[DannyGeysen]

Hartelijk dank beiden voor de oplossingen.
De laatste was perfect.

 

[sylvester-ponte]

hoi
of iets algemener:

Function VindGetal(s As String)
    s = Replace(s, ".", ",")
    For n = 1 To Len(s)
        If Mid(s, n, 1) Like "#" Then
            For m = 1 To Len(s) - n
                On Error GoTo fout
                VindGetal = CDec(Mid(s, n, m))
            Next m
            VindGetal = CDec(Mid(s, n, m + 1))
            Exit Function
        End If
    Next n
    VindGetal = ""
    Exit Function
fout:     VindGetal = CDec(Mid(s, n, m - 1))
End Function

maar ja dat is wel met vba
ik denk dat daar nog veel mooier functies voor bestaan

groet sylvester