string to integer

Hvad sker der hvis du gør sådan her !

y1 = right(y,2)

denne funktion virker fint nok. Det er selve konverteringen der hænger, men:

y1 = right(y,2)

"y1 = 87"

Du mangler at skrive anførselstegn foran og efter ku987. Så den tror at det er en variabel den skal læse værdien af.

Så - hvis du skriver y = "ku987", så skulle det virke. :o)

ok det kunne også misforståes.

Men fobian det jeg mener med 
y = ku987 er at y indeholder denne streng. Det er ikke noget jeg prøver at lægge ind i den for så er det korrekt at "ku987" skal anvendes

Det virker ellers hos mig, så jeg regnede med at det bare var det. - Du kan evt. prøve at gange Cint(y1) med 1.

Hvis dette ikke virker:

dim x as integer
dim y as string
dim y1 as string

y = "ku987"

y1 = right(y,3)

x = Cint(y1)

prøv med:

dim x as integer
dim y as string
dim y1 as string

y = "ku987"

y1 = CStr(right(y,3))

x = CInt(y1)

er forsøgt

Har ellers brugt den før uden problemer

ikke verdens mest komplicerede operation

jeg må prøve noget andet.
Men tak for forsøgene. Smid et svar fobian og thesurfer så deler vi pointene ud for den forgæves arbejdskraft:-)

Ingen points til mig, tak.. :-)

Jeg har lige lavet denne alternative version til dig. Vil kun, ha' point, hvis den virker hos dig :o)

Sub test()
Dim x As Variant
Dim x2 As Integer
Dim y As String
Dim y1 As String
Dim i As Integer

y = "ku987"
x = ""

For i = Len(y) To 1 Step -1
    If IsNumeric(Mid(y, i, 1)) Then
        x = Mid(y, i, 1) & x
    Else
        Exit For
    End If
Next

x2 = x * 1

End Sub

ok

hovsa.
Så ikke du kun ville have point hvis det virkede

har lige kopieret al koden ind i et nyt projekt, og her virker det oprindelige ganske udemærket, så jeg tror jeg har pillet ved noget i det andet projekt som jeg ikke skulle.

men kan ikke lige komme i tanke om noget det kan være