Overføre teksten fra 2 tekstbokse til 1 teksboks

Du indtaster følgende i textbox'ens procedure/VBA-kode:
TextBox3.Text = TextBox2.Text + TextBox1.Text
Når du så eksekverer denne kode lægges teksten sammen.

en anden ide uden vba er at gøre brug af de 3 linkedcell (lænkede celler), de virker nemlig begge veje.
Hvis Shapes("Text Box 1") linkedcell er A1 og Shapes("Text Box 2") er A2 og Shapes("Text Box 3") er A3, så skriv denne formel i A3
=A1 & A2
Nu vil Shapes("Text Box 3") automatisk blive udfyldt med en sammenkædning af de to andre

Japping, det duer kun hvis det er en kontrolelement-tekstboks og ikke en excel-tekstboks. Kontrolelement-tekstboks har jeg bevidst valgt ikke at bruge idet den ikke er særlig brugervenlig med hensyn til linieskift (ctrl+enter).

Jeg ønsker at merge 2 excel-tekstbokse af typen Shapes

gibber:
Jeg har kun een type tekstboks. Hvor finder jeg denne Shapes-type som du omtaler ?

Den her bruges for rektangler, men kan vel også bruges i tekstbokse (?):

ActiveSheet.Shapes("Rectangle 3").TextFrame.Characters.Text = ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text & ActiveSheet.Shapes("Rectangle 2").TextFrame.Characters.Text

Det lykkedes mig så alligevel at finde kommandoen til tekstbokse. Jeg kunne ikke finde ud af at "Textbox" SKAL kaldes "Text Box" - så jeg måtte ty til "indspil makro" til sidst - UHA!

ActiveSheet.Shapes("Text Box 3").TextFrame.Characters.Text = ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text & ActiveSheet.Shapes("Text Box 2").TextFrame.Characters.Text

Husk lige at rette de respektive numre (3, 1 og 2) til numrene i din applikation (dem kan man vist ikke selv bestemme).

alt for langsom, men skulle også lige lægge nogle fliser :-)

Sub Sammen()
Dim a As Shape, b As Shape, c As Shape
Set a = ActiveSheet.Shapes("Tekstboks 1")
Set b = ActiveSheet.Shapes("Tekstboks 2")
Set c = ActiveSheet.Shapes("Tekstboks 3")
c.TextFrame.Characters.Text = a.TextFrame.Characters.Text & b.TextFrame.Characters.Text
End Sub

Det virker som forventet - tak for hjælpen gutter.

sjap og bak hvis i smider et svar så kan i få point. Sjap får 90 og bak for 30....Hvis det er ok med jer.

Jeg brokker mig jo ikke :0)

gibber > der kan måske godt gå lidt tid inden bak svarer - måske er han kommet i klemme under en flise? Den slags hårdt arbejde kan være farligt for os blødvare-folk, ;0)

ok, ok her er et svar :-)
jeps det er hårdt, så nu vil jeg drikke nogle øl .......