Textvariable Textfeld und Rechteck

Forumthread: Textvariable Textfeld und Rechteck

23.03.2009 19:40:00

Klaus

Guten Abend Forum,
mit
bText = ActiveSheet.Buttons(Application.Caller).Caption
bekomme ich bei Klick auf den Button den Text des Buttons in eine Variable geschrieben.
Wie muss diese Zeile lauten für den Text
a) eines Textfeldes
b) eines Rechteckes (in dem z.B. mit =A1 ein Text steht)
Für Antworten ein Danke im voraus
Klaus

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textvariable Textfeld und Rechteck

23.03.2009 20:31:08

hary
AW: Textvariable Textfeld und Rechteck

23.03.2009 21:42:53

Klaus
AW: Habe es wiedergefunden

23.03.2009 22:16:52

Klaus

AW: Textvariable Textfeld und Rechteck

23.03.2009 20:31:08

hary

Hi Klaus
Hier mit bekommt man den Text raus. Textfelder und andere Shapes,. Statt MSG Box deine Var. einsetzten.


Sub formText()
Dim form As Object
Set form = ActiveSheet.Shapes("Textfeld 2")  'Name ersetzen
MsgBox form.TextFrame.Characters.Text
End Sub

vieleicht hilfts
Gruss Hary

AW: Textvariable Textfeld und Rechteck

23.03.2009 21:42:53

Klaus

Hallo Hary,
danke für Deine Antwort.
Dass ich auf einen Textfeldnamen ("Textfeld 1" etc.) adressieren kann
war mir bekannt. Ich möchte aber, dass bei Klick auf ein beliebigen Textrahmen
(bzw. Rechteckrahmen) der Textinhalt an eine Variable übergeben wird
Trotzdem Danke
Klaus

AW: Habe es wiedergefunden

23.03.2009 22:16:52

Klaus

Ich hatte es einfach verschlampt:
ActiveSheet.Shapes(Application.Caller).Select
a = Selection.Text

Textvariable Textfeld und Rechteck

Forumthread: Textvariable Textfeld und Rechteck

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread