Office: Textbox1.Setfocus funktioniert nicht

Hallo Leute,

ich programmiere hier gerade seit 2 Tagen ein Excel-AddIn für einen Kunden (Excel 2003, SP3).
In einem UserForm habe ich eine Datumsauswahl per Textbox txtDatumVon bzw. alternativ per Calendar Control 11.0 Steuerelement.
Wenn ich über das Steuerelement das Datum an die Textbox übergebe oder ein gültiges Datum in die Textbox eingebe, funktioniert alles wie gewünscht.
Um zu verhindern, dass Unsinn (z.B. fsdfsdf#*!) oder ein ungültiges Datum eingegeben werden kann, habe ich diese Textbox mit einem Ereignismakro verbunden, das bei Verlassen der Textbox die Gültigkeit prüft.
Es wird auch einwandfrei erkannt, ob ein gültiges Datum in die Textbox eingegeben wurde oder nicht.
ABER : Der Cursor springt trotz txtDatumVon.SetFocus nicht wieder in die Textbox *upps

Kann mir bitte jemand erklären, was ich falsch gemacht habe *rolleyes.gif* ?!?!
Hier der Code (im UserForm) :

VBA-Code:

Private Sub txtDatumVon_AfterUpdate()     txtDatumVon = Trim(txtDatumVon.Value)     If Not IsDate(txtDatumVon.Value) And txtDatumVon <> "" Then         txtDatumVon.SetFocus         MsgBox "Bitte geben Sie ein gültiges Datum ein !", vbCritical, "Falsche Eingabe"     End If End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Alternativ zu txtDatumVon_AfterUpdate() habe ich auch schon txtDatumVon_Exit() ausprobiert - ohne Erfolg !
Auch die Msgbox und Setfocus habe ich schon getauscht : Kein Erfolg !

Über eine passende Hilfestellung wäre ich sehr dankbar..
Ansonsten : Schönes WE an ALLE *mrcool

:)

 

Hallo NoNet,

probiere es mal folgendermaßen. Ich denke, dass Du damit zunächst mal arbeiten kannst.

Code:

Wünsche dir auch ein schönes WE.

 

Hallo NoNet,

ich bin in der VBA-Hilfe auf die wahrscheinliche Ursache des Problems gestoßen. Aus der VBA-Hilfe für das AfterUpdate-Ereignis:

Wenn der Benutzer die Eingabe abschließt, indem er auf ein anderes Steuerelement klickt, tritt zunächst das AfterUpdate-Ereignis ein, die Prüfroutine setzt den Fokus zurück auf die Textbox und erst anschließend tritt das Enter-Ereignis des angeklickten anderen Steuerelementes ein. Damit ist wohl nicht nur gemeint, dass eine entsprechende Ereignisroutine angestoßen wird, sondern wohl auch, dass das betreffende Steuerelement anschließend den Fokus wieder an sich reißt.

Wenn du jetzt jede Menge Steuerelemente auf dem Userformular hast, wäre es natürlich umständlich, bei allen im Enter-Ereignis deine Prüfroutine aufzurufen. Da musst du die Prüfroutine eventuell auf das Terminate- oder das Deactivate-Ereignis des Userformulares legen oder das Ganze sonstwie anders organisieren.

Gruß Ingolf

 

Grüß dich Sebastian,

yep, das ist natürlich die Methode der Wahl!

Gruß Ingolf

 

Hallo Sebastian, hallo Ingolf,

vielen Dank für eure Antworten !
Mit Sebastians Lösungsvorschlag erreiche ich genau das, was ich wollte - vielen Dank dafür ! *Smilie

Einziger "Schönheitsfehler" : beim Schliessen des UserForms per X erschien ebenfalls die MsgBox wenn die Textbox kein gültiges Datum enthielt. Aber das konnte ich durch eine zusätzliche Variable abfangen - in meinem (jetzt zu Hause *tongue.gif* ) nachgebildeten Userform sieht der Code dann so aus :

VBA-Code:

Public blnUFCloseMode As Boolean 'Für Überprüfung der Close-Methode des UF Private Sub txtDatumVon_Exit(ByVal Cancel As MSForms.ReturnBoolean)     txtDatumVon = Trim(txtDatumVon.Value)     If Not IsDate(txtDatumVon.Value) And txtDatumVon <> "" Then         'txtDatumVon.SetFocus         Cancel = True         If Not blnUFCloseMode Then MsgBox "Bitte geben Sie ein gültiges Datum ein !", vbCritical, "Falsche Eingabe : " & blnUFCloseMode     End If End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)     blnUFCloseMode = True End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Jetzt kann ich das am Montag in mein AddIn einbauen und dieses zu Ende bringen *cool.gif*

Nochmal ein schönes WE an alle.....