Hallo zusammen,

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