Hej Søren,
Jeg ved ikke om du er bekendt med VBA, for det er nok den løsning som passer bedst til din problemstilling.
Du skal bruge denne kodestump, som gør arbejdet for dig.
For at sætte koden ind skal du:
TRYK ALT+F11
I Venstre siden af skærmen, højreklik på THISWORKBOOK, vælg 'Insert' og klik på 'Module'
Kopier koden herfra (Den blå tekst) og sæt den ind i vinduet til højre.
Når dette er gjort, har du en ny formel i Excel som hedder: FindTal
Hvis du skriver formlen:
FindTal(A1) vil formlen finde tallene i cellen A1, hvis der altså er nogen
Function FindTal(Celle As Range) As Double
Dim Tæller As Integer, i As Integer
Dim Tekst As String, Tal As String, Værdi As String
Tekst = Celle
For Tæller = Len(Tekst) To 1 Step -1
Værdi = Mid(Tekst, Tæller, 1)
If IsNumeric(Værdi) Or Værdi = "," Then
i = i + 1
Tal = Mid(Tekst, Tæller, 1) & Tal
If IsNumeric(Tal) Then
If CDbl(Tal) < 0 Then Exit For
Else
Tal = Replace(Tal, Left(Tal, 1), "", , 1)
End If
End If
If i = 1 And Tal <> vbNullString Then Tal = CDbl(Mid(Tal, 1, 1))
Next Tæller
FindTal = CDbl(Tal)
End Function
//Allan