teksten omdraaien

[Jansap]

Hallo allemaal,

Ik zoek een snelle manier om de inhoud van een cell wat een tekst is om te draaien. vb. JAN moet worden NAJ maar ook MONIQUE moet worden EUQINOM.

Hartelijk dank voor een eventuele reactie.


Jan

 

[Spiderman]

Hoi JanSap,

Met onderstaande code zou het moeten lukken:

Sub Draaiom()

Dim OrgTekst As String
Dim NewTekst As String
OrgTekst = ActiveCell.Value

For x = Len(OrgTekst) To 1 Step -1
    NewTekst = NewTekst & Mid(OrgTekst, x, 1)
Next x

ActiveCell.Value = NewTekst

End Sub

Suc6

 

[Wigi]

Jan

Sub draaiom()
    Dim newStr As String, strlen As Integer, s As Integer, c As Range
    For Each c In Range("A1:A10")
        newStr = ""
        strlen = Len(c)
        For s = strlen To 1 Step -1
            newStr = newStr & Mid(c, s, 1)
        Next
        c = newStr
    Next
End Sub

Wigi

 

[Wigi]

Arno, je was me voor ...

Wel mooi te zien hoe gelijkaardige de code is. Tot en met de naam van de code.

Wigi

 

[Spiderman]

Hoi Wigi,

Net 2 minuten verschil. Maar ik heb dan ook geen for each lus gebruikt, dus jij had iets meer code

 

[Jansap]

:thumb: thanks voor jullie snelle respons, ik ben er zeer blij mee

Jan