waarde in cel moet uniek zijn

[hEnKhO]

wat ik wil is het volgende;

Een ingegeven waarde/tekst mag op een rij maar eenmaal voorkomen.
Voorbeeld; in cel b1 geef ik de waarde/tekst he3x. Wanneer ik deze waarde/tekst opnieuw probeer in te vullen in een cel op rij 1 moet een waarschuwing o.d. weergegeven worden dat deze waarde/tekst reeds voorkomt in de betreffende rij.
De waarde he3x mag dus op elke rij maar eenmaal gebruikt worden!

Wie weet (simpele) oplossing.

Henk

 

[Ingrid B]

Selecteer de rij(en)
ga naar Data/Valideren
selecteer in de eerste keuzelijst Aangepast
en gegrbuik als formule =AANTAL.ALS(1:1;A1)<2
Pas de verwijzingen aan naargelang de rij die actief is.

 

[hEnKhO]

Ingrid,

Dank je wel voor de tip. Ik ben een eind op weg, maar loop toch nog tegen het volgende aan?

E.e.a. ingesteld zoals aangegeven. Ik heb daarbij een foutmelding ingesteld die wordt weergegeven op het scherm zodra een identieke waarde/tekst op de rij wordt ingegeven. Ondanks de waarschuwing wordt de waarde/tekst toch geplaatst! Dit mag absoluut niet!


Henk

 

[Ingrid B]

Als je op het tabblad Foutmelding als stijl Stoppen kiest dan kan je geen foutieve waarden meer invoeren.

 

[hEnKhO]

Ingrid,

Inderdaad, als je dezelfde waarde intikt gaat de vlieger op!
Maar wanneer ik 2 excel bestanden open heb, knip ik de benodigde waarde/tekst uit bestand2 om het vervolgens te plakken in bestand1. Nu gaat de aangerijkte oplossing niet op!

En dit is nu net wat ik wil! Knippen uit het ene bestand en plakken in het andere bestand!

Henk

 

[Ingrid B]

Dan zal je het met een event-macro moeten opvangen:

Private Sub Worksheet_Change(ByVal Target As Range)
'bepaal de range waarvoor de macro moet werken
  If Intersect(Target, [1:5]) Is Nothing Then Exit Sub
Dim c As Range, r As Integer
  For Each c In Target.Cells
    r = c.Row
    If Application.WorksheetFunction.CountIf(Rows(r), c) > 1 Then
      MsgBox "De waarde in cel " & c.Address & _
        " bestaat reeds en wordt dus gewist.", vbInformation
      c = ""
    End If
  Next c
End Sub

kopieer de macro naar de werkblad-code

 

[hEnKhO]

Ingrid,

SUBLIEM!!

Henk