Verplaatsen van de inhoud van een cel

[wuma]

Beste forumlezers,

Graag zou ik de formule willen weten welke ik moet plaatsen in een cel zodat de inhoud van deze cel verspringt naar de volgende cel.

bv in cel 1 type ik "hond "
in dezelfde cel type ik "kat"

nu is het de bedoeling dat het woordje "hond" na het intypen van het woordje "kat" 1 cel horizontaal opschuift.

Wie kan mij erbij helpen. ( ik weet dat het mogelijk is want ik heb het al eerder zo gehad maar formule is zoek )

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim svNew, SvOld
With Application
   .EnableEvents = False
    svNew = Target
   .Undo
    SvOld = Target
       Target.Resize(, 2) = Array(svNew, SvOld)
   .EnableEvents = True
 End With
End Sub

 

[wuma]

verplaatsen van inhoud van een cel

Beste Harry,

Sorry voor de late reactie.

Kun je mij uitleggen waar en hoe ik deze code invoer en hoe dit in zijn werk gaat ?
Dit gaat me net een beetje te ver

mvg Andre

 

[AD1957]

Nagenoeg dezelfde vraag met uitleg van Harry.
https://www.helpmij.nl/forum/showthread.php/952650-Vraag-omtrent-een-macro-of-formule-in-Excel

 

[emields]

en zo blijven ze opschuiven

 

[HSV]

Klopt, moet je voor de aardigheid eens wat lege cellen aantikken.

 

[JEC.]

Aanpassing van emields suggestie. Klik op de naam en het Blijft opshuiven

 

[VenA]

Nee hoor. Klik op A1 en het blijft opschuiven.

 

[JEC.]

Dat is toch de bedoeling? Als er in A1 geklikt wordt neem ik aan dat de naam wordt ingevoerd.

Anders kan het ook achter een BeforeDubbleClick

 

[emields]

Dan zal dit beter zijn.