controle op dubbele getallen in vba macro

[samui]

Wie kan mij helpen met het volgende.
Ik zoek een macro om in kolom B dubbele getallen te herkennen
Ik heb een macro waardoor ik dmv een inputbox een deelnemer een locatie geef.
Als controle op het ingevulde locatie nummer, welke een getal is tussen 1 en ongeveer 300, wil ik hierna een check hebben of ik niet iemand een zelfde locatie geef.
Ik kom hier niet uit om deze controle te schrijven. Wie kan/wil mij helpen?
Het betreft een private sub op het tabblad deelnemers.

dmv de x in kolom B te typen begint de macro en komt de vraag welke locatie de deelnemer moet krijgen.
Direct daarna zou de controle moeten plaatsvinden of dit niet dubbel is.

alvast vriendelijk bedankt voor jullie reacties.

mvg,

Frank

 

[JeanPaul28]

Dag Frank

Hier een voorbeeld zonder VBA code, maar met VO, opmaak tot cel "B254"

 

[samui]

Dank je wel voor deze supersnelle reactie Jean-Paul.
Kan hier alwel wat mee echter ik heb een vba oplossing nodig zodat ik tijdens de macro een andere locatie kan kiezen. Reden: verder in de macro wordt straks aansluitend het papier voor de deelnemer direct uitgeprint op tabblad print en daarna aansluitend op tabblad factuur de bijbehorende factuur. Het moet dus eerst onderbreken zodat ik een andere locatie moet kiezen voordat de andere stappen genomen worden.
Toch bedankt voor de moeite zover.

Frank

 

[JeanPaul28]

Dag Frank

Met mijn beperte kennis in VBA, met een VBA code.

 

[samui]

Combined forces win.
Een beetje van jouw en mijn msg box en hij werkt.
Super bedankt Jean-Paul en wow is dit snel opgelost of is dit snel opgelost.

  If Target.Column <> 2 Then Exit Sub
    Target.HorizontalAlignment = xlCenter
    On Error GoTo err1
    If Application.WorksheetFunction.CountIf(Range("b:b"), Target) > 1 Then
 Beep
 MsgBox "Deze Locatie is al vergeven aan iemand kies een andere locatie", vbOKOnly Or vbCritical, "LET OP !!!!!"
 Exit Sub
 End If
err1: