ich optimieren meine Tabelle und das entsprechende Userform.
Nun habe ich schon voreingestellt, dass die TextBox1 rot wird, wenn sie nicht exakt 6 Zeichen hat. Allerdings würde ich gerne noch eine Möglichkeit einbauen, dass automatisch an der 2ten Stelle Nullen eingetragen werden, bis die Länge 6 entspricht.
Habe so diverse Ansätze gefunden, um an Ende und am Anfang die 0 einzufügen aber nicht an der 2ten Stelle.
Dim NumAsString As String
NumAsString = CStr(TextBox1)
NumAsString = String(6 - Len(NumAsString), "0") & NumAsString
Hat evtl jemand eine Idee?
Viele Grüße,
Hauke-Christian