UF TextBox1_Exit Ereignis abschalten durch Button

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Tag = "JetztzNicht" Then Exit Sub  '"JetztzNicht" eingebaut in Commandbutton1  _
damit TextBox1_Change nicht ausgeführt wird
If TextBox1 = "" Then     'wenn Textbox1 leer wird diese nicht verlassen - funktioniert
Me.Label29.Visible = True
Me.Label29.Caption = "bitte ""richtiges Datum"" eingeben!"
TextBox1.BackColor = &HFF& 'rot
Cancel = True
ElseIf Not TextBox1 Like "##.##.####" Then
TextBox1 = ""
Me.Label29.Visible = True
Me.Label29.Caption = "bitte ""richtiges Datum"" eingeben!"
TextBox1.BackColor = &HFF& 'rot
Cancel = True
ElseIf TextBox1 Like "##.##.####" Then
Me.Label29.Caption = ""
Me.Label29.Visible = False
TextBox1.BackColor = &H80000005
TextBox2.SetFocus
End If
End Sub
Private Sub CommandButton3_Click()
TextBox1.Tag = "JetztzNicht"           '"If ComboBox1.Tag = "JetztzNicht" Then Exit Sub" in  _
ComboBox1_Change eingebaut, damit Change nicht ausgeführt wird
ComboBox3.Tag = "JetztzNicht"           '"If ComboBox1.Tag = "JetztzNicht" Then Exit Sub"  _
in ComboBox1_Change eingebaut, damit Change nicht ausgeführt wird
ComboBox3.SetFocus
ComboBox3.Value = ""
TextBox1.Tag = ""
ComboBox3.Tag = ""
Unload Me
End Sub