Sub VendTekst() Dim tekst As String Dim vendttekst As String Dim i As Integer tekst = "vend tekst" For i = Len(tekst) To 1 Step -1 vendttekst = vendttekst & Mid(tekst, i, 1) Next MsgBox vendttekst End Sub
Synes godt om
Slettet bruger
08. februar 2018 - 15:05#2
er det ikke nærmere noget med
for i = strlength(string) to 0 { vendstring=string[i] ] i=i-1 }
Sub Reverse() ActiveCell = StrReverse(ActiveCell) End Sub
Synes godt om
2 synes godt om dette
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.