Dubbele waarden verhinderen

[Het Hof]

Ik wil een spreadsheet maken met een kolom "Datum" en een kolom "Bezochte plaatsen". Ik wil graag, dat er in de kolom "Bezochte plaatsen" geen dubbele waarden voorkomen. Hoe kan ik dat bereiken?

 

[edmoor]

Bijvoorbeeld met een stukje VBA achter het betreffende werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Count = 1 Then
        If WorksheetFunction.CountIf(Range("B:B"), Target.Value) > 1 Then
            MsgBox Target.Value & " is al eens ingevuld", vbCritical
        End If
    End If
End Sub

Dit controleert kolom B op dubbele waarden, zodra je een cel verlaat.

Of gebruik dit:
https://www.got-it.ai/solutions/exc...validation/data-validation-unique-values-only

 

[Het Hof]

Of gebruik dit:
https://www.got-it.ai/solutions/exc...validation/data-validation-unique-values-only

Deze had ik ook gevonden, maar ik kom daar niet uit. Ik kon gewoon dubbele waarden invoeren.

Hoe kan ik VBA achter het werkblad zetten?

 

[edmoor]

Klik op ALT+F11
Dubbelklik dan links bovenin op het betreffende werkblad
Plak mijn voorbeeld in het witte gedeelte rechts
Sla het document op als document met macro's (.xlsm)

Voorbeeld:

 

[Het Hof]

Fantastisch Ed! Dank je wel!

 

[HSV]

Voeg

Application.undo

toe aan de code.

 

[SjonR]

Met gegevensvalidatie kan het ook:

=AANTAL.ALS(B:B;B1)<2

 

[Het Hof]

Voeg

Application.undo

toe aan de code.

Waar is dat voor?

 

[edmoor]

Dan wordt de wijiging die het event triggerde ongedaan gemaakt.
Plaats deze direct onder de regel met Msgbox.