Textfeld - Text eintragen

[StefKe]

Hallo in die Runde, ich möchte auf einem Tabellenblatt ein Textfeld einfügen und der Text nachträglich verändert werden. Wie ist das Textfeld zu erreichen?

Code:

Sub Makro1()
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 57, 180, 84.75) _
        .Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Textfeld1"
End Sub

"Selection" muss mit dem Pfad des Textfeldes ersetzt werden....

Danke
Stefan

[ralf_b]

Wie ist das Textfeld zu erreichen?

 schau mal dort 
https://docs.microsoft.com/de-de/office/...addtextbox

[StefKe]

Danke für den Link, ich hatte es völlig ausgeblendet, dass sich die Box auch benennen läßt und unter diesem Namen erreichbar ist...

Code:

Sub Makro1()
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 57, 180, 84.75).Name = "irgendwas"
End Sub

Danke
Stefan