Syntax (ohne select)
19.08.2015 15:37:47
eres
auf einem Tabellenblatt habe ich ein Textfeld eingefügt.
Den Inhalt würde ich gerne immer dann, wenn das Textfeld verlassen wird in eine Zelle schreiben.
Das Auslesen funktioniert schon mal:
ActiveSheet.Shapes.Range(Array("BemerkungsFeld")).Select
MsgBox Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text
MsgBox ActiveSheet.Shapes.Range(Array("BemerkungsFeld")).ShapeRange(1).TextFrame2.TextRange.Characters.Text
Geht das nicht ohne Select?
Zusatzfrage: Gibt es für ein Textfeld sowas wie ein AfterUpdate - Ereignis oder vielleicht hat jemand einen anderen Tipp ?
Vielen Dank im voraus.
Gruß
eres
Anzeige