Naam naar ander sheet verplaatsen

[JJZijlstra]

Beste lezer,

In het bijgevoegde bestand heb ik namenlijstje in Blad1 en het is de bedoeling dat de gekozen naam via InputBox naar Blad2 wordt verplaatst.
Als je dat doet, dan komt in een zgn. MsgBox eerst de naam te staan die verplaatst gaat worden en dat is ook de bedoeling.
Maar daarna gaat het fout. Dat heb ik ook aangegeven in de code.
Wat is de juiste formule?

P.S. Graag een zo eenvoudig mogelijke code.

Groet,
Johan

 

[pasan]

probeer deze eens

                          '===========
                                Sheets("Blad2").Cells(doelcel.Row, doelcel.Column).Resize(, 2) = Sheets("blad1").Cells(zoekbereik.Row, zoekbereik.Column).Resize(, 2).Value         'HIER Ging HET FOUT --
                                Sheets("blad1").Cells(zoekbereik.Row, zoekbereik.Column).Resize(, 2).Delete
                          '===========

 

[JJZijlstra]

Beste Pasan,

De code werkt !!! Een probleem is nu opgelost. Hier ben ik heel gelukkig mee.
Ik vraag me nog af waarom er in uw code sprake is van Resize(, 2).
Wat is daar de betekenis van?

Vriendelijke groet,
Johan

 

[pasan]

met zoekbereik vind je 1 cel in de A kolom maar je wilt de plaatsnaam toch ook verplaatsen, de resize betekend: vergroot het gevonden bereik in dit geval dus een totaal van 2 cellen

 

[JJZijlstra]

Nogmaals mijn hartelijke dank voor de goede uitleg en hulp.

Vriendelijke groet,
Johan