IBAN alleen laatste 4 cijfers weer laten geven

[Mcvk]

Ik ben een document aan het maken van transacties en vanwege privacy moeten de IBAN nummers vervangen worden door een * of weg gelaten worden, behalve de laatste 4. Ik probeer het nu op onderstaande wijze, maar dit werkt blijkbaar niet met alfanumeriek.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xVal As String
    On Error Resume Next
    If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For I = 1 To Target.Count
        If Len(Target(I).Text) >= 4 Then
            Target(I).Value = Right(Target(I).Value, 4)
        End If
    Next
    Application.EnableEvents = True
End Sub

 

[emields]

heeft u deze al eens geprobeerd?

https://www.helpmij.nl/forum/announcement.php?f=5

 

[SjonR]

doet het prima bij mij.

 

[Senso]

Ik zag deze. IBAN 18 tekens in A1, in B1 * en C1 =VERVANGEN(A1;1;14;B1)

 

[Mcvk]

heeft u deze al eens geprobeerd?

https://www.helpmij.nl/forum/announcement.php?f=5

Excuses, nu tussen code tags geplaatst

 

[Mcvk]

doet het prima bij mij.

Zou het dan komen omdat het werkblad gevuld is met gegevens vanuit een .CSV bestand en excel er al opmaak aan geeft?

Helaas kan ik vanwege privacygevoelige gegevens het bestand niet delen.

Bekijk bijlage 342809

 

[SjonR]

Lastig vast te stellen zonder bestand.

 

[HSV]

In kolom A

Sub hsv()
 Cells(1).CurrentRegion.Columns(1).Name = "b"
 [b].Offset(, 1) = [if(len(b)>3,rept("*",len(b)-4)&right(b,4),b)]
End Sub

 

[emields]

of zo.

 

[snb]

In J1:

="*"&MOD(I1;10^4)

of

Sub M_snb()
    [K1:K100] = [if(I1:I100="","","*" & right(I1:I100,4))]
End Sub

 

[Mcvk]

Het lukte door de gegevens uit de kolom te verwijderen en vervolgens terug te zetten, dat activeerde blijkbaar de VBA code.

 

[roeljongman]

mwah.. ik weet vrij zeker dat het aan deze regels ligt.

Application.EnableEvents = False
jou code
Application.EnableEvents = True

Deze code zorgt namelijk dat ook de event macro's worden uitgeschakeld en weer ingeschakeld.
Als je echter nieuwe code aan het testen bent loopt die vaak vast voor dat EnableEvents weer op true word gezet.

Als je dan na een aanpassing gaat testen werkt "opeens" de eventmacro helemaal niet meer.

je kunt dat oplossen door een mini macro te maken

Sub EventsTrue()
 Application.EnableEvents = True
end

Elke keer als het testen van een Event macro vastloopt moet je dan zelf even die macro runnen of via immediate window die code regel uitvoeren

Kortom wees voorzichtig met gebruik van EnableEvents in marco's en altijd super alert dat je ze weer op True zet want zolang je dat niet doet zal elke Eventmacro niet uitgevoerd worden totdat je het weer activeert. (of Excel opnieuw opstart). Zeker in de fase dat je code aan het testen bent kan dit heel frustrerend werken omdat je niet goed kan zien dat het uitstaat.