Naam geprogrammeerd toevoegen

[vliet1001]

Bekijk bijlage Naamtoevoegen.xls

Goede middag,

Ik ben al even bezig om dit voor elkaar te krijgen, maar programmeren in Excel kan heel lastig zijn als je dit niet regelmatig doet. Wie helpt ?

In bijgaand voorbeeld wil ik een naam invoeren op het tabblad 'Invoer'
Deze naam moet worden toegevoegd aan de namenlijst op het tabblad 'Namenlijst'
De positie is de vervanging van de eerste 'x'. Deze positie kan verschillen. Vandaar zoeken naar de eerste 'x'

Wie kan helpen met de programmering onder de toets Toevoegen

Groet,
Jan

 

[Ginger]

De positie is de vervanging van de eerste 'x'.

Hmmm... waarom wil je die 'x' vervangen hebben? Is aansluiten onderaan de lijst niet gewoon een stuk netter?

Groet, Leo

 

[Roncancio]

Onderstaande code zoekt naar X en vervangt de X door de naam van D8.

Sub Toevoegen()
Set nm = Worksheets("Namenlijst").Range("A:A").Find("x", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Namenlijst").Range(nm.Address).Value = Range("D8").Value
End Sub

Met vriendelijke groet,


Roncancio

 

[vliet1001]

Onderstaande code zoekt naar X en vervangt de X door de naam van D8.

Sub Toevoegen()
Set nm = Worksheets("Namenlijst").Range("A:A").Find("x", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Namenlijst").Range(nm.Address).Value = Range("D8").Value
End Sub

Met vriendelijke groet,


Roncancio

 

[vliet1001]

Onderstaande code zoekt naar X en vervangt de X door de naam van D8.

Sub Toevoegen()
Set nm = Worksheets("Namenlijst").Range("A:A").Find("x", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Namenlijst").Range(nm.Address).Value = Range("D8").Value
End Sub

Met vriendelijke groet,


Roncancio

Klasse !!! dit help me verder
gr. Jan

 

[snb]

Sub Toevoegen()
  With Sheets("Namenlijst")
    .columns(1).replace "x",  .[D8]
  End With
End Sub