habe ein Problem bei dem ich Hilfe bräuchte.
Und zwar möchte ich verhindern, dass die Userform geschlossen werden kann, wenn Textbox 7,8 und 9 leer sind.
Vielen Dank schon mal im Voraus!
Lieben Gruß aus Bremen
Bernd
Office 2016 Pro 32bit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Len(TextBox1) = 0 Or Len(TextBox2) = 0 Then Cancel = True
End Sub
ObjektNamen bitte anpassenPrivate Sub CommandButton1_Click()
If TextBox8 = "" And TextBox8 = "" And TextBox9 = "" Then Exit Sub
Unload Me
End Sub
So wenn über das "x" geschlossen werden soll
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
If TextBox7 = "" And TextBox8 = "" And TextBox9 = "" Then
Cancel = True
End If
End If
End Sub
Private Sub cmd_schließen_Click()
If TextBox9 = "" Then Exit Sub
Unload Me
frm_Start.Show 'Hier kommt die Fehlermeldung
End Sub
Weiß jemand rat?
Private Sub cmd_schließen_Click()
If TextBox9 = "" Then Exit Sub
Unload Me
frm_Start.Show 'Hier kommt die Fehlermeldung
End Sub
Weiß jemand rat?