Hallo, ich habe ein Problem bei einer VBA.
Ich habe eine Tabelle mit Zugriffsdaten und eine Userform mit zwei Feldern 1. "txtBenutzername" 2. "Passwort"
Zellen B2:B30 = Benutzername Zelle C2:C30 die dazugehörigen Passwörter
Den Benutzernamen findet er in der UserForm, jedoch erhalte ich immer die Meldung das das Passwort Falsch ist.
Mit Offset wollte ich die Zelle von B2 nach C2 verschieben um diese zu überprüfen.
Private Sub btnAnmelden_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim rng As Range
Set rng = Range("Zugriff!B3:B30").Find(What:=txtBenutzername.Value, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Dieser Bentuzer existiert nicht"
Exit Sub
End If
If rng.Offset(0, 1).Value > Passwort.Value Then
MsgBox "falsches Passwort"
Exit Sub
End If
Unload Me
End Sub
Ich wäre euch dankbar wenn Ihr mir helfen könnt.