tekst og tal i samme celle

Du kan indsætte denne brugerdefinerede funktion.

Function GetValueFromText(Text)
Dim j As String, i As Long
j = ""
For i = 1 To Len(Text)
    If IsNumeric(Mid(Text, i, 1)) Then j = j & Mid(Text, i, 1)
Next
GetValueFromText = CLng(j)
End Function

Bruges sådan
=GetValueFromText(A2)
hvis teksten står i a2

Brug 'type' (tekst = 2) and 'right' hvor du går fra PS100 til S100 til 100. Første gang det er type = 2 har du dit tal. Den kunne du få med 'if'.
Ellers i VBA med If TypeName(The_text) = "String" etc.
Hvis svaret er lidt 'foggy' så endelig sig til

Til Bak

hvad hedder funktionen på dansk : getvaluefromtext ?

Den hedder lige hvad bak ønsker det er jo en brugerdefineret funktion !
Har du fået agatheb's svar til at virke, det kræver jo en while mv. ?
Ellers synes jeg at bak giver et udmærket svar som virker lige meget hvor mange bogstaver og hvor de er placeret, man kunne måske ønske en test på om nogle cifre overhovedet blev fundet i strengen og i så fald returnere nul eller andet "default" værdi.

Det har du da ret i, NOP.
Claus-> tryk ALT-F11, så kommer du til MAKRO-editoren.
Vælg så Insert / Module og kopier så koden heruder ind der.
Nu har du din helt egen hjemmelavede funktion.

Function GetValueFromText(Text)
Dim j As String, i As Long
j = ""
For i = 1 To Len(Text)
    If IsNumeric(Mid(Text, i, 1)) Then j = j & Mid(Text, i, 1)
Next
If j = "" Then GetValueFromText = CVErr(xlErrNum) Else GetValueFromText = CLng(j)
End Function

når jeg så har gjort dette , hvad gør jeg så , jeg er ikke vant til at bruge makroer ?

Tror jeg selv fandt ud af at lave en brugerdef.funktion , nu er mit problem bare at den returnere : #værdi

undskyld , det virker perfekt , tak , hvordan får man så gemt denne funktion , så den er tilgængelig i alle nye mapper