Userform Unload.Me
29.07.2014 09:18:10
Marco
In der Initalize hab ich eine Eingabebox mit Abbruch Button drin, hier wird die Nummer des gewünschten Datensatzes erfragt oder der Anwender soll die Maske verlassen können.
Die Unload Befehle werden einfach ignoriert, im EInzelschrittmodus läuft das PRogramm einfach weiter und das Userform lädt einfach weiter und wird sichtbar.
Frage: Gibt es einen Weg, in der Initialisierungsroutine einen Abbruch zu erzeugen und das Userform nicht zu laden ?
Teile des Codes:
Private Sub UserForm_Initialize()
'Datensatz suchen
strinbox = InputBox("Reparatur-Nr.eingeben:")
'Abbruch abfangen hier > Unload me
'Userform töten bei falscher Eingabe
If strinbox = "" Or strinbox = "0" Then
Unload Userform1
End If
If IsNumeric(strinbox) Then
RNR = strinbox
Else
'Userform1 töten
Unload Userform1
End If
End Sub
Anzeige