Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textvariable Textfeld und Rechteck
23.03.2009 18: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
Anzeige
AW: Textvariable Textfeld und Rechteck
23.03.2009 19: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 20: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
Anzeige
AW: Habe es wiedergefunden …
23.03.2009 21:16:52
Klaus
Ich hatte es einfach verschlampt:
ActiveSheet.Shapes(Application.Caller).Select
a = Selection.Text

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige