Hoe toont u in Excel alleen de laatste vier cijfers van een burgerservicenummer (BSN)?
Om de privacy van het burgerservicenummer (BSN) te beschermen, tonen veel Excel-gebruikers doorgaans alleen de laatste vier cijfers ervan. In dit artikel leert u hoe u alle cijfers van het BSN kunt verbergen, behalve de laatste vier.
Toon alleen de laatste 4 cijfers van het bsn met een formule
Toon alleen de laatste 4 cijfers van het bsn met VBA-code
Verwijder alle cijfers van het bsn behalve de laatste 4 cijfers met Kutools voor Excel
Toon alleen de laatste 4 cijfers van het bsn met een formule
De volgende formule laat u in Excel alleen de laatste 4 cijfers van het BSN zien. Volg deze stappen.
1. Selecteer een lege cel, voer de formule =RECHTS(A2;4) in de formulebalk in en druk vervolgens op de Enter-toets. Zie schermafbeelding:

Opmerking: In de formule is A2 de cel met het burgerservicenummer.
2. Houd de eerste resultaatcel geselecteerd en sleep de vulgreep omlaag om alle resultaten te verkrijgen, zoals in de onderstaande schermafbeelding wordt getoond.

Verwijder eenvoudig alle cijfers van het bsn, behalve de laatste 4 cijfers in Excel:
Met de Verwijder karakters op een bepaalde positie-functie van Kutools voor Excel verwijdert u in één keer alle cijfers van het BSN, behalve de laatste vier — precies zoals te zien is op de schermafbeelding hieronder.
Download en probeer het nu! (30 dagen gratis proefversie)

Toon alleen de laatste 4 cijfers van het bsn met VBA-code
De volgende VBA-code zorgt ervoor dat bij invoer van uw burgerservicenummer automatisch alleen de laatste vier cijfers worden weergegeven. Volg deze stappen.
1. Klik met de rechtermuisknop op het bladtab van het werkblad waarin u alleen de laatste 4 cijfers van het burgerservicenummer wilt tonen en selecteer Code weergeven in het contextmenu. Zie schermafbeelding:

2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het codevenster.
VBA-code: Toon alleen de laatste 4 cijfers van het burgerservicenummer in Excel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xVal As String
On Error Resume Next
If Intersect(Target, Range("A:A")) 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 Opmerking: In de code is A:A de kolom waarin u het burgerservicenummer invoert. Pas deze aan naar wens.
3. Druk op de Alt+Q-toetsen om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu worden bij het invoeren van een burgerservicenummer in kolom A automatisch alle cijfers verborgen, behalve de laatste vier.
Verwijder alle cijfers van het bsn behalve de laatste 4 cijfers met Kutools voor Excel
U kunt alle cijfers uit het burgerservicenummer verwijderen, behalve de laatste vier, met de Verwijder karakters op een bepaalde positie-functie van Kutools voor Excel. Volg deze stappen.
1. Selecteer alle cellen met burgerservicenummers en klik op Kutools > Tekst > Verwijder karakters op een bepaalde positie.

2. Selecteer in het dialoogvenster Verwijder karakters op een bepaalde positie de optie Vanaf links in het gedeelte Positie, geef aan hoeveel cijfers u vanaf links wilt verwijderen in het vak Cijfers (hier geef ik het getal 7 op) en klik op de knop OK. Zie schermafbeelding:

Vervolgens worden alle cijfers uit de geselecteerde cellen verwijderd, behalve de laatste vier.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins