Textfeld befüllen
14.11.2016 15:54:21
MS
Ich habe einen Code, der mir die Auswahl, die ich in einem Datenschnitt vornehme, in einem Textfeld wiedergibt. Nun möchte ich, dass dieser das gleiche auf einem anderen Tabellenblatt tut. Ich dachte eigentlich es reicht, wenn ich eine weitere Zeile einfüge und auf das andere Textfeld verweise. Hier bekomme ich jedoch immer nur eine Fehlermeldung ("Objekt erforderlich"). Der bereits angepasste Code lautet wiefolgt:
Function set_text_for_shape(txt As String)
Sheet1.Shapes("SHAPE").TextFrame2.TextRange.Characters.Text = txt
Sheet2.Shapes("SHAPE").TextFrame2.TextRange.Characters.Text = txt
End Function
Ich hoffe mir kann jemand helfen, vielen Dank hierfür bereits im Voraus.
Anzeige