AW: Textfelder formatieren
14.09.2013 06:10:47
fcs
Hallo Christian,
hier 2 Varianten für die Verwendung mit Userform-Steuerelementen.
Wenn du den Code innerhalb des Codes im Userform-Modul verwendest, dann kannst du den Userform-Namen auch durch die Systemvariable Me ersetzen.
Gruß
Franz
Sub Userform1_FormatTextboxen()
'für Textboxen in einem Userform
Dim arrNamen, varName As Variant, objControl As msforms.Control
arrNamen = Array("Textbox1", "Textbox2", "Textbox3", "Textbox4", "Textbox5", _
"Textbox6", "Textbox7", "Textbox8", "Textbox9", "Textbox10", _
"Textbox11", "Textbox12") 'Namen ggf. anpassen
For Each varName In arrNamen
Set objControl = UserForm1.Controls(varName) 'Userformname ggf. anpassen
With objControl
.Width = 70.85 'Application.CentimetersToPoints(2.5)
.Height = 22.7 'Application.CentimetersToPoints(0.8)
With .Object.Font
.Name = "Times New Roman"
.Size = 14
End With
End With
Next
UserForm1.Show
End Sub
Sub Userform1_Format_TextBox_1_bis_12()
'für Textboxen in einem Userform mit identischem Namen und fortlaufender Nummer
Dim intCount As Integer, objControl As msforms.Control
Dim strName As String
strName = "Textbox" 'identischer Textteil des Namens
For intCount = 1 To 12 'Bereich der Zählnummern der Textboxen
Set objControl = UserForm1.Controls(strName & Format(intCount, "0")) 'Userformname ggf. _
anpassen
With objControl
.Width = 70.85 'Application.CentimetersToPoints(2.5)
.Height = 22.7 'Application.CentimetersToPoints(0.8)
With .Object.Font
.Name = "Times New Roman"
.Size = 14
End With
End With
Next
UserForm1.Show
End Sub