Finde et tal i en teksstreng ?

Den er lidt værre. Du er nok nødt til at lave en VBA-funktion, som kan klare det.
Øjeblik....

ok, indsæt denne i et modul:

Public Function GetTal(tekst As String) As Long
    Dim n As Long
    For n = 1 To Len(tekst)
        If Mid(tekst, n, 1) >= "0" And Mid(tekst, n, 1) <= "9" Then
            GetTal = Val(Mid(tekst, n, 1))
            Exit For
            Exit Function
        End If
    Next n
    gettal = ""
End Function

Herefter kan du f.eks. lave et nyt felt således:

felt2: GetTal([Felt1])

Mindre fejl! Brug denne i stedet:

Public Function GetTal(tekst As String)
    Dim n As Long
    GetTal = ""
    For n = 1 To Len(tekst)
        If Mid(tekst, n, 1) >= "0" And Mid(tekst, n, 1) <= "9" Then
            GetTal = Val(Mid(tekst, n, 1))
            Exit For
        End If
    Next n
End Function

Hej Thomas
Det virker også perfekt - så her er dine points

/ Per

tak selv :o)