Problem beim Beenden einer UserForm?
25.01.2005 08:36:11
Oliver
ich häng hier mal wieder fest. Scheint noch zu früh zu sein. ;-)
Also, ich mache in einer UserForm in einer TextBox eine Überprüfung beim Verlassen der TextBox, ob der eingegebene Wert eine Zahl ist. Wen nicht, dann soll eine Fehlermeldung erscheinen und der Focus soll wieder auf die TextBox gesetzt werden. Nachfolgend mal mein Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
Else
MsgBox "Es sind nur Zahlen erlaubt. Bitte wiederholen Sie die Eingabe"
TextBox1 = ""
TextBox1.SetFocus
Cancel = True
End If
End Sub
Nun habe ich eine Abbruchtaste in der UserForm, über die ich die UserForm ohne Eingabe wieder verlasen möchte. Aber leider funktioniert das mit der Anweisung "Unload Me" leider nicht. Ist ja auch klar, da ja durch das Betätigen der Taste die TextBox verlassen wird und dabei der obige Code greift. Wie stelle ich das nun an? Im Moment kann ich die UserForm nur über das Kreuz verlassen, allerdings kommt dann der die Meldung aus dem TextBox1_Exit Ereignis, dass nur zahleneingaben erlaubt sind. Ich hoffe, jemand hat einen Tip für mich? Ich verzweifele jedenfalls im Moment daran.
Besten Dank schon mal,
Oliver