VBA-macro om celinhoud anoniem te maken?

[tomswaelen]

Ik heb al eens zitten zoeken, maar ik kom er niet uit.

Ik heb basically een macro nodig die de inhoud van een cel anoniem maakt, door alle karakters te vervangen door 'X'. De spaties moeten echter wel behouden blijven.

Het komt er op neer dat de macro elk karakter behalve de spatie moet vervangen in een selectie.

Dit zou dus bijvoorbeeld geven:

Tom Swaelen -> XXX XXXXXXX
Tom Van Swaelen -> XXX XXX XXXXXXX
@Tom Swaelen -> XXXX XXXXXXX



Hoe speel ik dit klaar?

 

[edmoor]

Zoiets:

Sub TEKST2X()
    For Each cl In ActiveSheet.UsedRange
        Tekst = cl.Value
        If Len(Tekst) > 0 Then
            For i = 1 To Len(Tekst)
                If Mid(Tekst, i, 1) <> " " Then Mid(Tekst, i, 1) = "X"
            Next i
        End If
        cl.Value = Tekst
    Next cl
End Sub

 

[tomswaelen]

Dat werkt wonderwel, dankjewel

Kan je kort uitleggen hoe dit werkt?

 

[HSV]

Of eentje die niet alle letters stuk voor stuk bij langs gaat.

Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion
With CreateObject("VBscript.Regexp")
 For i = 1 To UBound(sv)
       .Global = True
       .Pattern = "([<*?://\\>@.,$!^%-_=abcdefghijklmnopqrstuvwxyz])"
       .Execute sv(i, 1)
     sv(i, 1) = .Replace(sv(i, 1), "X")
 Next
End With
Cells(1).CurrentRegion = sv
End Sub

Misschien kan a-z ook wel waar het alfabet staat, ik heb het niet getest.

 

[tomswaelen]

Dankjewel!

Maar hoe doe ik dit voor de geselecteerde cellen, niet voor de CurrentRegion?

 

[VenA]

Wijzig Cells(1).CurrentRegion in Selection? Maar een voorbeeldbestand is natuurlijk beter. Als je verschillende lossen cellen selecteert dan gaat deze optie niet werken.

 

[HSV]

Sub hsv_2()
Dim cl As Range
With CreateObject("VBscript.Regexp")
 For Each cl In Selection
       .Global = True
       .Pattern = "([<*?://\\>@.,$!^%-_=a-z])"
       .Execute cl
     cl = .Replace(cl, "X")
 Next
End With
End Sub

 

[tomswaelen]

Dankjewel iedereen!