Problem Cancel = True
13.02.2020 10:42:15
Peter
ich habe eine UF mit mehreren TB und ComboBoxes.
Für die TB1 habe ich folgenden Code:
Private Sub TextBox1_Change()
If TextBox1 = "" = True Then Exit Sub
'Anfang Datum . Vorgabe und Begrenzung auf 10 Stellen
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", ""))
Gibt es eine Möglichkeit, das so zu gestalten, dass kein Cancel = True benötigt wird.Denn durch Cancel = True wird alles blockiert, bis TB1 ausgefüllt ist.
Gruss
Peter