Dubbele tekst voorkomen

[Roald10]

Dag allen,

Ik heb een vraag.
Hoe voorkom je dubbele tekst in een bestand?
In kolom A moeten er gerechten ingevoerd worden wat op kan lopen tot over de 500 regels. Probleem is dus dat er dus meerdere malen tomatensoep kan voorkomen, hoe kan je dit voorkomen met een waarschuwing? Dus dat als je tomatensoep in bijvoorbeeld A255 typt dat er dan een waarschuwing komt te staan met 'Tomatensoep komt al een keer voor'.

Alvast bedankt!

 

[robdgr]

Dat kan op een paar manieren:

• In een hulpkolom, bijvoorbeeld F, de formule:

  =ALS(AANTAL.ALS($A$1:$A3;$A3)>1;A3&" komt al voor";"")

• Met een formule in Voorwaardelijke Opmaak
• Via VBA

 

[edmoor]

Een VBA methode:

Private Sub Worksheet_Change(ByVal Target As Range)
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, 1).Value = Target.Value And Target.Row <> i Then
            MsgBox Target.Value & " komt al voor."
        End If
    Next i
End Sub

 

[zapatr]

Het meest praktisch lijkt mij om daarvoor de in Excel ingebouwde voorziening van gegevensvalidatie te gebruiken.
zie de bijlage.

 

[Roald10]

Dankje allen!
Wat Zapatr heeft gedaan bedoelde ik precies!

 

[robdgr]

Zet je de vraag dan nog even op opgelost?