Habe auf einem Excel-Blatt "per Hand" ein leeres Textfeld angelegt (Tab Einfügen, dort Textfeld) und diesem den Namen "Textfeld1" gegeben. Dann habe ich ein Makro zum Füllen des Texfeldes aufgezeichnet:
ActiveSheet.Shapes.Range(Array("Textfeld1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Y"
Beim Versuch das "Select" zu eliminieren:ActiveSheet.Shapes.Range(Array("Textfeld1")).ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Y"
erhalte ich die Fehlermeldung 438 (Objekt unterstützt diese Eigenschaft nicht).Kann mir jemand helfen, wie ich dies ohne Select bzw. kürzer formulieren kann?
Bin für jede Hilfe dankbar.
Gruß
erwin