UF Textbox unterschiedlich formatieren

Forumthread: UF Textbox unterschiedlich formatieren
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: UF Textbox unterschiedlich formatieren

19.12.2014 19:50:37

Ludmila

Hallo,
wer kann mir bei meinem Problem mit dem formatieren einer textbox helfen.
Danke!
Grüße
Ludmila
https://www.herber.de/bbs/user/94518.xlsm

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: UF Textbox unterschiedlich formatieren

19.12.2014 21:03:30

fcs

AW: UF Textbox unterschiedlich formatieren

19.12.2014 21:03:30

fcs

Hallo Ludmilla,
es ist meines Wissens nicht möglich im Text einer UF-Textbox einzelne Zeichen anders zu formatieren.
Für den Text in einer Zelle sieht es dann wie folgt aus:
Gruß
Franz

Private Sub CommandButton2_Click()
With TextBox7
.Value = TextBox1.Text & " " & TextBox4.Text & " " & _
TextBox2.Text & " " & TextBox4.Text & " " & _
TextBox3.Text
With .Font
.Size = Val(TextBox6.Text)
.Name = TextBox5.Text
End With
End With
With ActiveCell 'Zelle in die der Text eingetragen wird
With .Font
.Size = Val(TextBox6.Text)
.Name = TextBox5.Text
End With
.Value = Me.TextBox7
With .Characters(Len(TextBox1.Text & " ") + 1, 1)
With .Font
.Name = "Wingdings"
.Size = 6
End With
End With
With .Characters(Len(TextBox1.Text & " " & TextBox4.Text & " " & TextBox2.Text & " ") + 1,  _
1)
With .Font
.Name = "Wingdings"
.Size = 6
End With
End With
End With
End Sub