Tal i omvendt rækkefølge - kode

Maker dine telefonnumre og kør denne makro

Makroen skal være i et modul

Public Sub BagfraTal()
For Each C In Selection
res = ""
For T = 1 To Len(C)
res = res & Mid(C, Len(C) - (T - 1), 1)
Next
C.Value = Val(res)
Next
End Sub

Eller en function. Indsæt nedenstående kode i modul, hvorefter du kan benytte formlen :  =vend(A1)
*****************************
Function vend(a) As Variant
Dim tt As String
mystring = a
mylen = Len(mystring)
For b = 1 To mylen - 1
tt = tt & Mid(mystring, mylen - b, 1)
Next
vend = tt
End Function

Tak jeg prøver det lige af...

Der findes også en almindelig CALL-funktion til formålet:
=CALL("Msvcrt40";"_strrev";"1F";A1)

Er den også i excel97 - den virker ikke hos mig !

Ja, den er i Excel97.
Bemærk at "A1" evt. skal udskiftes.

Den giver også #Navn på min XP - Jan...

Jo jeg ændrede A1 til den celle jeg ville have omvendt tekstrækkefølge på her P1..

Hmm virker fint hos mig. Har I analysis toolpack installetet?

Den virker endda både på nummerisk og tekst.

Jep - både AT og ATvba både dansk og engelsk...

Hvis du checker andre løsninger skal
"For b = 1" ændres til "For b = 0" i min løsning
Lige for god ordens skyld :-)

=CALL-funktionen virker kun i XL97.
Fra XL2000 er den taget ud fordi den udgjorde en sikkerhedsrisiko.

OK - det kigger jeg nærmere på, hvis jeg ellers kan få skod programmet til at lade være med at fjerne mine foranstillede nuller...

Aheis - det ser da bare helt fornuftigt ud. Vend formlen tror jeg godt jeg kan bruge - så slipper jeg også for at gruble over de foranstillede nuller.

Aheiss - lægger du lige et svar ? Og tusind tak til I andre...

OK - her et svar, og selv tak :-)