gegevensvalidatie lijst updaten

[grema]

beste ,

bij het gebruik van de gegevensvalidatie lijst komende van een 2de tabblad heb ik een probleem wanneer ik een aanpassing in een bestaande tekst uitvoer.
vb in de tekst staat een woord foutief ( of de tekst is aangepast ) dan moet ik steeds op het 1ste tabblad waar ik de lijst gebruik er telkens even de cel ( die ondertussen aangepast is ) gaan zoeken en de juiste cel inhoud aanduiden
om een correcte overeenstemming te hebben.
Kan dit automatisch ?
met dank

grema

 

[DANIEL162]

Excel Experts graag een voorbeeldbestand.

 

[grema]

op tabblad " list" in cel b3 verander ik de tekst dan moet ik in tabblad " invulblad" de lijst terug opzoeken en de juiste tekst ophalen.

mocht dit automatisch volgen aan de wijziging die ik doorvoerde in tabblad " list " zou dit tijdsbesparend zijn .

 

[HSV]

Met onderstaande code in bladmodule List.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw, old
Application.EnableEvents = False
   nw = Target.Value
   Application.Undo
   old = Target.Value
   Application.Undo
     With Sheets("invulblad ").Range("b3")
        If .Value = old Then .Value = nw
     End With
Application.EnableEvents = True
End Sub

 

[grema]

vedere uitbreiding naar meerdere cellen

Super,
kan ik het bereik uitbreiden door de range aan te passen
zoals "With Sheets("invulblad ").Range("b1:b5") "

dus vanaf cel b1 tot cel b5
of moet ik ergens nog een aanpassing doorvoeren
want blijkbaar bij gewoon celbereik te wijzigen lukt het niet

Grema

 

[HSV]

In de code staat ook een spatie achter "Invulblad " net als je tabbladnaam.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw, old
With Application
  .EnableEvents = False
   nw = Target.Value
  .Undo
   old = Target.Value
  .Undo
  .EnableEvents = True
End With
Sheets("invulblad ").Range("b3:b5").Replace old, nw, xlWhole
End Sub

 

[grema]

vedere uitbreiding naar meerdere cellen Vervolg vraagje

beste Harry

indien ik dan bij invulblad in de andere cellen zoals voorbeeld cel b4 hetzelfde wil doen zoals in cel B3 ( en zo verder )
Kan de code dan aangepast worden of moet er per cel een nieuwe code opgesteld worden met zelfde bereik.
Het is de bedoeling om via deze keuze lijst verschillende combinaties te kunnen maken uit tabblad " list" en deze dan te plaatsen in " invulblad" op verschillende cellen.
Ik hoop dat ik een beetje duidelijk ben .
grema

 

[grema]

opgelost dank je .

sorry

ben er aan uitgeraakt

super dank voor deze oplossing

nog een fijn we.
grema

 

[HSV]

De code lijkt me genoeg voor elk cel die al was ingevuld en wordt gewijzigd in blad "List".

Of je moet al met een vast bereik willen werken.

 

[grema]

berichten gekruist
is opgelost
nogmaals super bedankt

 

[HSV]

Ik zag het inderdaad, graag gedaan.