Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beschriftung Textfelder ohne select??

Beschriftung Textfelder ohne select?
09.07.2019 08:58:48
Georg
Hallo zusammen,
warum kann ich eigentlich nicht aus den Codezeilen:
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.Characters.Text = "+"

wie sonst auch das "select" rausschmeissen und einfach
ActiveSheet.Shapes.Range(Array("TextBox 1")).Characters.Text = "+"
schreiben? Ich krieg dann immer einen auf die Finger...
Ist das einer der wenigen Punkte, wo ich das Select wirklich benötige?
Danke und Gruß
Georg

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beschriftung Textfelder ohne select?
09.07.2019 09:07:29
Torsten
Hallo Georg,
warum ein Array?

ActiveSheet.Shapes("TextBox 1").Characters.Text = "+"

AW: Beschriftung Textfelder ohne select?
09.07.2019 09:16:01
Torsten
sorry, vergiss es. Funktioniert nicht
AW: Beschriftung Textfelder ohne select?
09.07.2019 09:17:06
Georg
Oh - das hört sich gut an! Das Array kam aus dem Recorder.
Aber leider geht es erstmal noch nicht ohne... :-(
Ich kriege bei deiner Version den Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Probiere es mal so....
09.07.2019 09:18:08
Martin

ActiveSheet.Shapes("Textfeld 1").TextFrame.Characters.Text = "+"

Bingo - das war's!
09.07.2019 09:22:14
Georg
Vielen Dank, Martin
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige