Textfeld - Text eintragen

[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