Autocorrectie in één bepaald bestand

[love-miranda]

Goede avond allemaal,

kan iemand mij vertellen of het mogelijk is om een autocorrectie aanpassing te maken aan 1 bepaald bestand?
Het was gelukt om een woord automatisch te laten veranderen, maar dat werd toen meteen in elk office programma doorgevoerd.

Om een beeld erbij te geven.... Het gaat om de wekelijkse notulen in Excel die mijn collega bij houdt, ik wil dat als er een naam wordt getypt ERROR komt te staan ipv de naam hihi


Alvast bedankt!

 

[popipipo]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        Select Case UCase(Target.Value)
            Case "JAN"
                Target.Value = "ERROR"
            Case "PIET"
                Target.Value = "ERROR"
   
        End Select
    End If

End Sub

Probeer eens de naam 'jan' of 'piet' in cellen A1:A100 te plaatsen mbv deze vba code

 

[love-miranda]

Hoi Willem,

dank je, het is gelukt, alleen krijg ik de foutmelding
fout 13
typen komen niet met elkaar overeen.

Als ik foutopsporing laat doen krijg ik de melding bij

Select Case UCase(Target.Value)

Weet je hoe ik dit kan verhelpen?

groetjes

 

[Cobbe]

Fout is niet te reproduceren.
Kan je een bestandje posten waarin dit misloopt.