Hallo Jeannie & Bea,

Wat bedoel je met "persoonsnummer".

De persoonsnummers zijn onwillekeurig maar wel identiek.

..... onwillekeurig maar wel identiek.... leg je dat even uit aan de hand van een voorbeeld-lijstje

In macro bestaat er een functie "If exist"-"than"-"else" en daar kan je dan een boodschap en een "terug naar af" aan toevoegen. Dan moet je wel een macro kunnen schrijven.

SoftAid

Jannie en Bea,

De volgende code zal eerst nakijken of een bepaald persoonsnummer al voorkomt in de bestaande kolom. De code maakt gebruik van de ingebouwde Excel functie CountIf (in ' t Nederlands iets als Tellen.Als of zo).

Private Sub cmdToevoegen_Click()
' Ga ervan uit dat de persoonsnummers in kolom A op sheet1 staan
Set DoelKolom = Sheet1.Columns("A")
' Tel het aantal keer dat het nieuw nummer (in de tekstbox) al bestaat in deze kolom
If Application.WorksheetFunction.CountIf(DoelKolom, "=" & Me.tbNieuwNummer) > 0 Then
    ' Nummer bestaat al
    MsgBox "Dit nummer bestaat al!"
    Me.tbNieuwNummer.SetFocus
    Me.tbNieuwNummer.Text = ""
Else
    ' Nummer bestaat niet, voeg het toe...
    VolgendeRij = DoelKolom.Cells(65000, 1).End(xlUp).Row + 1
    DoelKolom.Cells(VolgendeRij, 1) = Me.tbNieuwNummer
    Me.tbNieuwNummer = ""
End If
' Verwijder object uit geheugen
Set DoelKolom = Nothing
End Sub

Dit werkt alleszins. Als het nog niet duidelijk is, stuur mij een mail, dan ik jullie een voorbeeld workbook sturen.

Succes,
Barthold