habe ein kleines Problem habe folgenden SUB
Private Sub CommandButton1_Click()
UName = TextBox1.Text
PWort = TextBox2.Text
Set XFind = Sheets("PW").Columns(1).Find(UName)
If Not XFind Is Nothing Then
If Sheets("PW").Cells(XFind.Row, 2) = PWort Then
Unload Me
Login
Exit Sub
Else
MsgBox "Falsches Passwort"
End If
Else
MsgBox "Falscher User-Name"
End If
End If
End Sub
um mich in meine Datei einzuloggen , klappt auch prima, nur mein Problem ist wenn in der UserForm nichts steht kann ich mich auch anmelden...bei falschen Passwort oder falschem Username funktioniert es prima...
hoffe ihr könnt mir weiter helfen
Gruß und Dank
HOLGI