Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

UF TextBox1_Exit Ereignis abschalten durch Button

Betrifft: UF TextBox1_Exit Ereignis abschalten durch Button von: Peter
Geschrieben am: 31.01.2020 16:21:36

Hallo,
leider ist meine Suche nach Aufhebung des Textbox1_exit - Ereignis fehlerhaft.

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

Könnt ihr mir bitte helfen!

Gruss
Peter

Betrifft: AW: UF TextBox1_Exit Ereignis abschalten durch Button
von: Daniel
Geschrieben am: 31.01.2020 17:47:42

HI
warum steuerst du das nicht über einen ToggleButton oder eine Checkbox?

dann reicht im Prinzip folgender Code im Exit Event:
If ToggelButton1 Then 
    hier der Code
End iF
oder noch einfacher:
if Not ToggleButton1 Then Exit Sub
   hier der weiter Code
über das Not bzw fehlende Not kannst du steuern, bei welcher Togglebuttonstellung das Event ausgeführt

Gruß Daniel

Betrifft: AW: UF TextBox1_Exit Ereignis abschalten durch Button
von: Peter
Geschrieben am: 02.02.2020 06:26:14

Hallo Daniel,
besten Dank für Deine Hilfe.
Habe das in ähnlicher Weise jetzt in ..._Exit eingebaut.

Gruss
Peter

Beiträge aus dem Excel-Forum zum Thema "UF TextBox1_Exit Ereignis abschalten durch Button"