Melding bij herhaling getalwaarde rij

[zapatr]

Als het om slechts 1 kolom met gegevens gaat, zoals nu kennelijk het geval is, dan is het simpel. En als je de drie mogelijke voorwaarden voor voorwaardelijke opmaak als voor andere dingen gebruikt hebt, kun je ook die voorw. opmaak best vermijden. Daarom in de bijlage een voorbeeld met een melding bij foutieve invoer. Hierbij is ervan uitgegaan dat niet alleen naar de bovenliggende cellen wordt gekeken of de invoer reeds voorkomt, maar in het gehele bereik (ingesteld is het bereik A1:A200). Dus ook als je bv. iets in A9 invoert dat ook al in A74 staat, volgt er een foutmelding. Is dit niet wat je wil, laat het dan weten a.u.b.

 

[HSV]

Of hier nog een met een macrootje.
Niet voor reeds dubbele data.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rij As Range
  On Error Resume Next
   With Sheets("Blad1").Columns(Target.Column)
    If WorksheetFunction.CountIf(Columns(Target.Column), Target.Value) > 1 Then
      Set rij = .Find(Target.Value, , xlValues, xlWhole)
       MsgBox "Staat al in cel " & rij.Address(RowAbsolute:=False, ColumnAbsolute:=False)
        Range(rij.Address).Interior.ColorIndex = 3
       Application.Wait DateAdd("s", 1.5, Now)
      Range(rij.Address).Interior.ColorIndex = xlNone
    Target.Value = ""
   End If
  End With
End Sub

 

[timjatomnee]

Zapatr en HSV allebei hartelijk dank, nu heb ik meerdere keuzes welke allemaal nuttig zijn. Blijft achteraf toch wel heel erg eenvoudig maar het staat nu erg mooi in de database