ich habe ein Userform gebaut, dass nach dem ausfüllen mit dem Button "Speichern" geprüft wird. Gibt der Anwender sein richtiges Passwort ein wird der Datensatz in einer Liste abgelegt.
Das Problem ist, wenn er ein falsches PW eingibt würde ich gerne die Userform aufrufen, bekomme hier aber eine Fehlermeldung. Das einzige was geklappt hat war der Befehl END, damit schließt sich aber die Userform.
Kennt ihr hierzu eine Lösung?
Danke und Gruß
Dieter
----------
Private Sub btn_Speichern_Click()
Dim codelist As String
Dim code As String
Dim znr As Long
Dim eingabe As String
Dim weiter As String
eingabe:
codelist = Range("tblAzubis[Passwort]").Cells(cmb_Name.ListIndex + 1).Value
MsgBox ("codelist = " & codelist)
code = txt_Code
If code = codelist Then GoTo weiter Else
MsgBox ("Falsches Passwort")
txt_Code = ""
usf_Eingabe.Show
weiter:
txt_Code = ""
Application.ScreenUpdating = False
If cmb_Name = "" Or cmb_Fach = "" Or cmb_Note = "" Then
MsgBox "Bitte auf DATENEINGABE klicken und dann alle Felder ausfüllen!"
End If
If cmb_Name = "" Or cmb_Fach = "" Or cmb_Note = "" Then
End
End If
Sheets("Datenliste").Visible = True
Sheets("Datenliste").Select
znr = Range("A1").CurrentRegion.Rows.Count + 1
Range("a" & znr).Value = Date
Range("b" & znr).Value = Format(Time, "hh:mm")
Range("c" & znr) = Me.cmb_Name
Range("d" & znr) = Me.TextBox_Beruf
Range("e" & znr) = Me.TextBox_Klasse
Range("f" & znr) = Me.cmb_Fach
Range("g" & znr) = Me.cmb_Note
cmb_Fach = ""
cmb_Note = ""
Sheets("Datenliste").Visible = xlVeryHidden
Application.ScreenUpdating = True
Sheets("Note übermitteln").Select
MsgBox "Daten wurden gespeichert!"
End Sub