Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige