wer kann mir bei meinem Problem mit dem formatieren einer textbox helfen.
Danke!
Grüße
Ludmila
https://www.herber.de/bbs/user/94518.xlsm
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