ich habe in eine UserForm mehrere Textfelder
Für die Eingabe möchte ich gerne ein bestimmtes Format einstellen
Für jedes einzelne TextFeld klappt das auch
Meine Frage nun
kann ich mit einer Schleife die Textfelder formartieren ?
gruß wolfgang
Private Sub TextBox6_AfterUpdate()
TextBox6.Text = Format(TextBox6.Text, "#,##0.000 m")
End Sub
Private Sub TextBox6_AfterUpdate()
Dim NewFormat As String, TBNr As Integer
TBNr = 6
NewFormat = "#,##0.000 m"
FormatMe TBNr, NewFormat
End Sub
Sub FormatMe(TBNr As Integer, NewFormat As String)