SetFocus löst Exit Ereignis aus

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    SetFocus löst Exit Ereignis aus

    Hallo,

    Vielen Dank schon einmal für die hilfreichen Beiträge die ich hier schon gefunden habe. Nun habe ich ein Problem zu dem ich leider keine Lösung finden konnte.

    Ausgangslage:
    Ich habe unter Excel (2019 und 2016 getestet) ein UserForm mit mehreren TextBoxen. Textbox2 ist standardmäßig ausgeblendet und deaktiviert. Beim Verlassen der jeweiligen Textboxen wird über das Exit-Ereignis die Plausibilität geprüft.
    Wenn der Inhalt von TextBox1 z.B mit "A" anfängt soll beim Verlassen von TextBox1 TextBox2 eingeblendet werden und der Cursor zur Eingabe in diesem Feld stehen.
    Das klappt soweit alles.
    Leider wird aber das Exit-Ereignis von TextBox2 ausgelöst wenn in TextBox1 zum Beispiel "Apfel" eingegeben wird.
    Mit AfterUpdate kam ich auch nicht weiter.

    Ich hoffe, dass mir jemand das Brett dass ich vorm Kopf habe etwas verkleinern kann.

    FF
    Salmanazar

    Visual Basic-Quellcode

    1. Option Explicit
    2. Option Base 1
    4. Private Sub UserForm_Initialize()
    5. TextBox2.Visible = False
    6. TextBox2.Enabled = False
    7. End Sub
    9. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    10. If Left(TextBox1, 1) = "A" Then
    11. TextBox2.Visible = True
    12. TextBox2.Enabled = True
    13. Me.TextBox2.SetFocus
    14. Else
    15. Me.TextBox3.SetFocus
    16. End If
    17. End Sub
    19. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    20. If TextBox2 = "" Then
    21. MsgBox "bitte gültigen Wert eintragen (2)"
    22. Cancel = True
    23. End If
    24. End Sub
    26. Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    27. If TextBox3 = "" Then
    28. MsgBox "bitte gültigen Wert eintragen (3)"
    29. Cancel = True
    30. End If
    31. End Sub


    CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Hallo,

    Danke für die Antwort.
    Leider ändert sich dadurch nicht, dass das Exit-Ereignis von TextBox2 beim ersten Durchlauf eines Strings in Textbox1 der mit "A" beginnt ausgelöst wird.

    Das Problem liegt offensichtlich am Einblenden der TextBox2 während des Exit-Ereignisses.
    Habe den Code dahingehend geändert, dass er die Eingabe in Textbox1 mit Change überwacht und so ggf. die TextBox2 einblendet.
    Jetzt funktioniert es wie gewünscht. Unter Office365 funktioniert es so wie gewünscht. Andere Versionen habe ich noch nicht ausprobiert.
    Hoffe, dass es mit der Eingabe per Barcodescanner keine Probleme gibt.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Option Base 1
    4. Private Sub UserForm_Initialize()
    5. TextBox2.Visible = False
    6. TextBox2.Enabled = False
    7. End Sub
    9. Private Sub Textbox1_Change()
    10. If Left(TextBox1.Text, 2) = "A" Then
    11. TextBox2.Visible = True
    12. TextBox2.Enabled = True
    13. Else
    14. TextBox2.Visible = False
    15. TextBox2.Enabled = False
    16. End If
    17. End Sub
    19. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    20. If TextBox1 = "" Then
    21. MsgBox "bitte gültigen Wert eintragen (1)"
    22. Cancel = True
    23. End If
    24. End Sub
    26. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    27. If TextBox2 = "" Then
    28. MsgBox "bitte gültigen Wert eintragen (2)"
    29. Cancel = True
    30. End If
    31. End Sub
    33. Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    34. If TextBox3 = "" Then
    35. MsgBox "bitte gültigen Wert eintragen (3)"
    36. Cancel = True
    37. End If
    38. End Sub


    Es wäre trotzdem interessant zu wissen wieso es beim Einblenden im Exit-Ereignis zu Problemen kommt.

    CodeTags korrigiert ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Willkommen im Forum.

    Wenn man einen Haltepunkt auf SetFocus setzt, sieht man, dass das 2x ausgeführt wird. Das dürfte daran liegen, dass der Fokus einmal durch den Befehl, aber eben auch durch Drücken der Tabulatortaste gesetzt wird. Wenn ich festlege, dass TextBox1 den TabIndex 0, TextBox2 den TabIndex 2 und TextBox3 den TabIndex 1 hat, klappt der Post#1-Code wie gewünscht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Besten Dank VaporidZed,

    wie so oft steckt der der Teufel im Detail. Jetzt macht der Code alles so wie er es soll. Mit Haltepunkten habe ich bislang nie nach Fehlern gesucht, das sollte ich in Zukunft mit beachten.

    Ich wünsche allen ein ruhiges Wochenende
    Salmanazar



    ******************************************
    gelöst
    ******************************************

    Salmanazar schrieb:

    Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Ich bin irritiert ob der ByVal-Übergabe.
    Ich weiß, dass die Microsoft-Doku auch ByVal vorgibt.
    Dennoch würde ich ByRef erwarten, da Cancel innerhalb der Routine verändert wird und dieser Wert an den Aufrufer zurück gegeben wird.
    Warum funktioniert das bei Events trotz ByVal?
    Hat da jemand eine vernünftige Erklärung?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende