Automatische tekst in een tekstveld

[anoniem]

Goedendag, Kan ik door middel van een macro automatisch tekst in een tekstveld zetten, dus waar de cursor knippert daar moet de tekst komen. Zou dit door middel van een keuzemenu kunnen? Wie kan mij hiermee helpen? Mvg Bas

[anoniem]

Dit heb ik tot nu toe, maar hij zet de tekst automatisch bovenaan maar als daar al tekst staat dan moet hij dat niet doen, dus waar de cursor komt te staan moet de tekst ook staan. Sub Button2_Click() ActiveSheet.Shapes("Text Box 1").Select Selection.Characters.Text = _ "U wordt hierbij geregistreerd." & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" With Selection.Characters(Start:=1, Length:=68).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("C4").Select Wie kan me hierbij helpen???