Automatisch vervangen inhoud cel en inhoud weer automatisch terugzetten

[audirs]

Beste excel experts,

Ik wil graag in 1 of meerdere cellen de inhoud van een cel vervangen en weer terugzetten als ik er een cijfer in type. Bv, ik type "1" in een cel waar het woord "Klein" instaat, dan moet het cijfer "1" weer worden vervangen door het woord "Klein". Is dit mogelijk? Ik ben er al een tijdje mee bezig maar krijg het niet voor elkaar.

Alvast bedankt voor de mogelijke oplossingen.

 

[AHulpje]

Ben benieuwd waarom je dat wilt.
Zoiets:

 

[emields]

Welkom op de site.
Plaats in het vervolg zelf een voorbeeldbestandje, dan weten we waarover we praten.

 

[HSV]

Er mankeert je toch niets aan de ogen @emields.

Die van @AHulpje zal niet werken bij een net geopend bestand zonder een 'SelectionChange' te doen.

Private Sub Worksheet_Change(ByVal Target As Range)
 With Application
  .EnableEvents = False
      nw = Target
       .Undo
      old = Target
      .Undo
     If LCase(old) = "klein" And IsNumeric(nw) Then .Undo
  .EnableEvents = True
 End With
End Sub

Ps. na 3 veranderingen dan maar.

 

[emields]

Is er niets bij waar je wat kan mee doen?