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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen