tekst controleren en automatisch toevoegen

[alexanderinfo]

Beste mensen,

Ik ben bezig met een document waarin de gebruiker gegevens kan bijhouden.
In kolom "H" moet de gebruiker de locatie van een map invullen.
Dit moet volgens een bepaald format gedaan worden.
Helaas gebruikt niet elke gebruiker consequent deze format bij het invullen.

Bij elke invulling moet eigenlijk altijd "I:\map1\map2\" gebruikt worden, maar vergeten sommige dit te doen.

Hiervoor heb ik de volgende code:

For Each cl In ActiveSheet.Range("Tabel10[Locatiepad]").SpecialCells(xlCellTypeConstants)
    cl.Value = "I:\map1\map2\" & cl.Value
  Next

Werkt prima, totdat een gebruiker wel netjes alles invult. Dan krijg ik dubbele invoer.

Wat ik dus zoek is een manier om de tekst binnen een cel te controleren, zodat er geen dubbele tekst wordt ingevuld.

Misschien denk ik te moeilijk en is dit ook met validatie te doen, maar de betreffende oplossing daarvoor heb ik niet gevonden.

Alvast bedankt voor de moeite.

 

[alexanderinfo]

Ik heb ondertussen het probleem voor mijzelf opgelost met de volgende code

ActiveSheet.Range("Tabel10[Locatiepad]").Replace what:="I:\map1\map2\", Replacement:="", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Hiermee krijg ik geen dubbele invoer.

Het zal vast netter kunnen, maar voorlopig werkt het prima.