ich habe eine UF mit ner Menge (50 Stck) Textboxen (tb) die ich im Moment wie folgt formatiere:
Private Sub tb1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
tb1 = Format(Application.WorksheetFunction.Substitute(tb1, ":", ""), "00:00")
End Sub
Gibt es die Möglichkeit alle Boxen beim UF Initialisieren so einzustellen, daß ich mir jedes Exit ersparen kann?
Habe es mit:
Private Sub UserForm_Initialize()
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "Textbox" Then tb = Format(Application.WorksheetFunction.Substitute(tb, ":", ""), "00:00")
Next tb
End Sub
versucht, leider ohne Erfolg.
Hat da jmd einen Tip?
Gruß Dennis