Fjern alt teks i en celle

Forsøg med denne funktion:

Function RemoveText(S As String) As Currency
tmp = ""
For i = 1 To Len(S)
    Select Case Mid(S, i, 1)
    Case 0 To 9, "."
    tmp = tmp + Mid(S, i, 1)
    End Select
Next i
RemoveText = tmp
End Function

Der skal være komma og ikke punktum i denne linie:

Case 0 To 9, ","

Så vi decimaler også blive vist korrekt.

Som makro (tager kun først forekommende tal. Ovenstående funktion medtager også evt. tal der måtte findes senere i teksten). Hér fra A1 til A10:

Sub KunTal()
Dim o, p, R As Integer

For R = 1 To 10
    For o = 1 To Len(Cells(R, 1).Value)
        Select Case Mid(Cells(R, 1).Value, o, 1)
            Case 0 To 9
                For p = o To Len(Cells(R, 1).Value)
                    Select Case Mid(Cells(R, 1).Value, p, 1)
                        Case " "
                        Exit For
                    End Select
                Next p
                Exit For
        End Select
    Next o
    Cells(R, 2).Value = Mid(Cells(R, 1).Value, o, p - o + 1)
Next R

End Sub

Super Brynil
Svar tak

Det er hér ;))

Næh-her!