Login - Laufzeitfehler 9 - Index außerhalb des gül
10.01.2019 11:15:09
Peter
ich hatte nach langer Suche etwas gefunden was mich weiterbringt, jedoch bekomme ich die o.g. Fehlermeldung, weiß jemand warum?
Tabelle1(Login) ist die Tabelle mit Benutzer+PW in Spalte a+b
Textbox1 ist eine Combobox die ich so benannt habe.
Private Sub CommandButton1_Click()
Dim wsZugangsdaten As Worksheet
Dim rngBenutzer As Range
Set wsZugangsdaten = Sheets("login") 'Visible-Eigenschaft auf 2 = xlSheetVeryHidden setzen
'Annahme, dass Benutzername in Spalte 1 steht und das dazugehörige Kennwort in Spalte 2
If Textbox1.Value = "" Then
MsgBox "Benutzername darf nicht leer sein.", vbInformation, "Hinweis"
Exit Sub
End If
Set rngBenutzer = wsZugangsdaten.Columns(1).Find(what:=Textbox1.Value, lookat:=xlWhole)
If rngBenutzer Is Nothing Then
MsgBox "Benutzername nicht gefunden.", vbInformation, "Hinweis"
Exit Sub
End If
If rngBenutzer.Offset(, 1).Text TextBox2.Value Then
MsgBox "Das Kennwort ist verkehrt.", vbInformation, "Hinweis"
Exit Sub
End If
MsgBox "Login erfolgreich", vbInformation, "Hinweis"
End Sub