2.2k Aufrufe
Gefragt in Tabellenkalkulation von klapptnicht Einsteiger_in (57 Punkte)
Hallo,

ich bin grad dabei mich ins Thema Userform einzuarbeiten und hab da mal eine Verstädnis Frage:

Bsp.:
Ich habe in dem Textfeld7 eine Prüfung bei "AfterUpdate" eingebaut.
Wenn die Prüfung fehlschlägt, soll die Userform wieder angezeigt werden, damit der User den Fehler korrigieren kann...

Ganz doof gefragt: wie komme ich von dem "After_update" wieder an den "Anfang" der Userform bzw. wo befinde ich mich innerhalb der Userform, wenn die After_Update Routine zu ende ist ??

Danke schon mal ...

Klappnicht

6 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Nick,

ich vermute mal Du meinst Textbox. Benutze das Exit Ereignis Cancel=true

Gruß hajo
0 Punkte
Beantwortet von klapptnicht Einsteiger_in (57 Punkte)
Hi Hajo,

sorry, ja Textbox ...

Mein Problem ist:

Private Sub TextBox7_AfterUpdate()

If IsDate(TextBox7.Text) Then
..mache das
Else
Fehler... --> Userform neu anzeigen
End If
end sub

Wie komme von da zum Exit-Ereignis ??
Oder habe ich da n Denfehler ??

Klapptnicht
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Nick,

nicht von da ich hatte geschrieben benutze das Exit Ereignis.

Gruß Hajo
0 Punkte
Beantwortet von klapptnicht Einsteiger_in (57 Punkte)
.. ahh, jetzt habe ichs verstanden ...

Klappt auch soweit schon, nur hab ich einen Abbruch Button in der Userform + wenn ich den jetzt betätige, kommt zuerst die Fehlermeldung des Exit-Ereignis + beim 2. klicken wird die Userform geschlossen ..

Muß ich das noch irgendwie abfangen ??
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Nick

beim CommandButton zu beginn
Textbox1.Tag=1 und vor end Sub Textbox1.Tag="" und beim Exit ereignis zu Beginn If Textbox1.tag<>"" then exit sub

Gruß Hajo
0 Punkte
Beantwortet von klapptnicht Einsteiger_in (57 Punkte)
Jau, super. klappt :-)))

Danke dir :-)))
...