Geen twee dezelfde values in range

[mvdvlist]

Beste forumgebruikers,

Misschien kan dit zonder vbtje...

Ik heb een uitstekend werkend formulier, dank zij jullie hulp overigens, maar zou graag willen dat, wanneer ik een textbox een value invul, en deze komt al voor in de doelrange, dat er een melding komt met b.v. een inputbox("Graag nieuwe gegevens, deze bestaan al!") of iets dergelijks.

Zelf had ik iets bedacht als: If TextBox1.value exists in range("A:A") Then
textbox1.value = InputBox("Fout, nieuwe waarde")
End if

Maar dit werkt dus totaal niet. Heb echt veel gezocht, maar kom er niet uit tot nu toe.


Alvast bedankt,

Maarten

 

[SjonR]

Zo ?

If Application.CountIf(Blad1.Range("A:A"), TextBox1.Value) > 0 Then MsgBox "Fout"

 

[mvdvlist]

Hartelijk dank, ik ga het vanavond proberen...
groet,

mvdvlist