UserForm 'Show' aber leer
Ximena
Ich bin an einer UserForm im Excel, die ich mit VBA programmiere. Momentan sieht es so aus, dass eine Userform kommt, man die ausfüllt und 'Continue' klickt. Dann folgt eine zweite UserForm, die man auch ausfüllen muss.
Auf der Zweiten Userform gibt es aber einen Knopf namens 'Cancel'. Ich hätte gerne, dass wenn ich Cancel drücke, dass wieder Userform1 auftaucht - aber ohne Eingaben.
Momentan sehen meine Codes etwa so aus:
UserForm 1:
Private Sub UserForm_Initialize()
LB_RequestType.ListIndex = -1
TB_Name.Text = " "
TB_Mail.Text = " "
TB_Datum.Text = " "
TB_Land.Text = " "
End Sub
Private Sub CB_Continue_Click()
If TB_Name.Text = " " Or TB_Mail.Text = " " Or TB_Datum.Text = " " _
Or TB_Land.Text = " " Or LB_RequestType.ListIndex = -1 Then
MsgBox ("Please fill out all fields!"), vbOKOnly, "Error"
Exit Sub
End If
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub CB_Cancel_Click()
UserForm2.Hide
UserForm1.Show
End Sub