ich habe mehrer Textelder (1-4), diese möchte ich gern in
ein Textfeld zusammensetzen, für eine Signatur.
mfg walter
TextBox5.Text = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text
Hilfts?
Dim NeuerText$
NeuerText = Textbox1.Text & Textbox2.Text & Textbox3.Text & Textbox4.Text
MsgBox NeuerText
Option Explicit
Sub fülleTextFeld()
Dim StrG$
With ActiveSheet
StrG = .Shapes("Textfeld 1").DrawingObject.Text
StrG = StrG & .Shapes("Textfeld 2").DrawingObject.Text
StrG = StrG & .Shapes("Textfeld 3").DrawingObject.Text
StrG = StrG & .Shapes("Textfeld 4").DrawingObject.Text
.Shapes("TxTGesamt").DrawingObject.Text = StrG
End With
End Sub
Gruß Matthias