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