Diakritische tekens vervangen met een macro

[Gert Bouwmeeste]

Goedemorgen.

Ik zoek een macro om diakritische teklens (e", á, ü etc etc) te vervangen in een excel-bestand.

Ik heb een macro gevonden maar die doet niks.

Option Explicit

'-- Add more chars to these 2 string as you want
'-- You may have problem with unicode chars that has code > 255
'-- such as some Vietnamese characters that are outside of ASCII code (0-255)
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"

Sub VervangDiakriet()
    StripAccent Blad1.Range(A1:C20")
End Sub

Sub StripAccent(aRange As Range)
    '-- Usage: StripAccent Sheet1.Range("A1:C20")
    Dim A As String * 1
    Dim B As String * 1
    Dim i As Integer

    For i = 1 To Len(AccChars)
        A = Mid(AccChars, i, 1)
        B = Mid(RegChars, i, 1)
        aRange.Replace What:=A, _
        Replacement:=B, _
        LookAt:=xlPart, _
        MatchCase:=True
    Next
End Sub

Zie bijgevoegd (simpel) voorbeeldbestand. De gevonden macro doet iig niks, helaas.

Iemand een idee?

 

[AD1957]

Misschien hier ?

https://www.helpmij.nl/forum/showth...aanpassen-(ö-ç-á-etc-)?highlight=diakritische

 

[OctaFish]

Macro doet het prima, als je alle regels meeneemt

Option Explicit
'-- Add more chars to these 2 string as you want
'-- You may have problem with unicode chars that has code > 255
'-- such as some Vietnamese characters that are outside of ASCII code (0-255)
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"

Sub VervangDiakriet()
    StripAccent Range("A1:A3")
End Sub

Sub StripAccent(aRange As Range)
    '-- Usage: StripAccent Sheet1.Range("A1:C20")
    Dim A As String * 1
    Dim B As String * 1
    Dim i As Integer

    For i = 1 To Len(AccChars)
        A = Mid(AccChars, i, 1)
        B = Mid(RegChars, i, 1)
        aRange.Replace What:=A, Replacement:=B, LookAt:=xlPart, MatchCase:=True
    Next
End Sub

 

[Gert Bouwmeeste]

Macro doet het prima, als je alle regels meeneemt

.......

Dat begrijp ik niet. Die van jou doet t wel, jij geeft op StripAccent Range("A1:A3")
Ik geef op StripAccent Range("A1:C20"). Daar zit A1:A3 ook bij in.

Maar goed, blij met je aanpassing! Dank

Edit: Het zit in de aanroep van de macro.
StripAccent Blad1.Range(A1:C20") moet zijn StripAccent Range("A1:C20")

Stom van mij.