Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

UF Textbox unterschiedlich formatieren

Forumthread: UF Textbox unterschiedlich formatieren

UF Textbox unterschiedlich formatieren
19.12.2014 18: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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UF Textbox unterschiedlich formatieren
19.12.2014 20: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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige