Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausnahmen für Exit-Ereignis

Ausnahmen für Exit-Ereignis
22.01.2008 09:14:00
Specke
Hallo Experten,
ich habe eine Userform mit einer Textbox, einem Lsitenfeld und zwei Buttons.
Wenn in die Textbox etwas eingegeben wird, wird das Listfeld entsprechend gefüllt und der Focus geht wieder auf die Textbox. Dies habe ich über das Exit-Ereignis umgesetzt. Wenn eine falsche Eingabe (nichtnumerisch) in der Textbox gemacht wird, erscheint eine Fehler-Msgbox.
Wenn ich nun auf einen der beiden Button klicke (Abbrechen bzw. Wechsel zu einer anderen Userform) erscheint diese Fehler-Msgbox auch. Logisch ist das schon, aber wie kann ich das umgehen.
Kann ich beim Exit-Ereignis prüfen, ob ein Button gedrückt wurde? Ich habe es schon mit Activcontrol.Name probiert, aber die Textbox ist ja noch aktiv.
Vielen Dank und Gruß
Specke

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausnahmen für Exit-Ereignis
22.01.2008 09:27:00
Hajo_Zi
Hallo Nick,
vielleicht wäre eine Datei nicht schlecht? Ein Nachbau sieht meist anders aus als das Original.

AW: Ausnahmen für Exit-Ereignis
22.01.2008 12:45:55
Specke
Hallo Hajo,
hier die Datei
https://www.herber.de/bbs/user/49264.xls
Es geht um die Userform "Ausgabe" (zu erreichen über den Button Ausgabe in der Userform"Eingabe") und die Textbox "txt_Liste".
Danke und Gruß
Specke

AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:16:00
Hajo_Zi
Hallo Nick,
setfocus kann entfallen.
If Not IsNumeric(txt_Liste.Value) Then
Fehlermeldung "Listennummer", "txt_Liste"
Cancel = True
Gruß Hajo

Anzeige
AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:31:00
Specke
Hallo Hajo,
das ist richtig, aber die Fehlermeldung beim Klick auf "Ende" kommt deshalb immer noch.
Gruß Specke

AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:39:00
Hajo_Zi
Hallo Nick,
davon Stand aber nichts von im Beitrag?
Der Fehler wird bei mir ausglöst falls Tabelle nicht vorhanden.
Gruß Hajo

AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:44:00
Specke
Hallo Hajo,
in meinem Eingangsbeitrag hatte ich das Problem schon beschrieben. Die Meldung kam bei mir immer.
Habe von Rudi einen hilfreichen Tipp bekommen. (s.u.)
Danke und Gruß
Specke

AW: Ausnahmen für Exit-Ereignis
22.01.2008 09:55:31
Chris
Servus,
ich würde die Eingabeprüfung nicht über Exit regeln, sondern über Change:
Hier mal ein Ansatz:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) And TextBox1  "" Then
TextBox1 = ""
MsgBox "Ungültige Eingabe!" & Chr(13) & Chr(13) & " Sie können nur Zahlen eingeben!",  _
vbExclamation, "Eingabe!"
End If
End Sub


Gruß
Chris

Anzeige
AW: Ausnahmen für Exit-Ereignis
22.01.2008 12:48:44
Specke
Hallo Chris,
danke für Deine Antwort.
Das Problem ist dabei, dass nicht nur die Eingabe geprüft werden soll, sondern auch wieder in die Textbox zurückgesprungen werden soll, wenn die Eingabe korrekt war und die Listbox gefüllt wurde. Mit Setfocus auf die Textbox funktioniert das leider nicht.
Gruß Specke

AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:27:00
Rudi
Hallo,
dummerweise kommt zuerst das Exit-Ereignis.
vielleicht mit
if txt_liste"" Then
'Code
End If
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Ausnahmen für Exit-Ereignis
22.01.2008 13:33:00
Specke
Hallo Rudi,
die Idee ist gut! So funktioniert es.
Danke Specke
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige