AW: Login erstellen
22.09.2006 10:19:38
Xelleron
Hallo Michels,
Du könntest eine Userform erstellen, mit 2 Textboxen und 2 Button (Login & Abbrechen)
Dem Button Login ordnest Du folgenden Code hinzu:
Private Sub CommandButton1_Click()
Set frm1 = UserForm1
With frm1
Range("A5:A15").Select 'ggf. Zellen anpassen
Selection.Find(What:=.TextBox1.Text, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If TextBox2.Text = ActiveCell.Offset(0, 1).Text Then
'Dein Code was passieren soll
Else
MsgBox "Loginfehler", vbCritical
End If
End With
End Sub
Gruß Dennis