Überprüfung, Username und Passwort in Tabelle vorh

'Unterroutine klick auf Login Button Private Sub CommandButton1_Click() 'Überprüfung ob Textbox 1 und Textbox 2 leer sind, dann MSG Box ausgeben strUsername = TextBox1.Value If Trim(TextBox1.Value) = "" Then MsgBox "Bitte geben Sie einen gültigen Benutzername in die TextBox ein ( maximal 30 Zeichen) _ - danke.", _ 16, " Hinweis!!!" TextBox1.SetFocus End If If Trim(TextBox2.Value) = "" Then MsgBox "Bitte geben Sie ein gültiges Passwort ein (maximal 8 Zeichen) - danke.", _ 16, " Hinweis!!!" End If ' Überprüfung von Benutzername und Passwort Dim unFind As Range, unPW As Range endsub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
bzw ich habe selbst Veränderungen vorgenommen, da das Passwort unrelevant ist, es soll nur geprüft werden ob Benutzername vorhanden,
Hier mein neuer Versuch, was ist da verkehrt?

Private Sub CommandButton1_Click()
'Überprüfung ob Textbox 1 und Textbox 2 leer sind, dann MSG Box ausgeben
strUsername = TextBox1.Value
If Trim(TextBox1.Value) = "" Then
MsgBox "Bitte geben Sie einen gültigen Benutzername in die TextBox ein ( maximal 30 Zeichen) _
- danke.", _
16, "   Hinweis!!!"
TextBox1.SetFocus
End If
If Trim(TextBox2.Value) = "" Then
MsgBox "Bitte geben Sie ein gültiges Passwort ein (maximal 8 Zeichen) - danke.", _
16, " Hinweis!!!"
End If
' Überprüfung von Benutzername und Passwort!
' Wenn Benutzername nicht vorhanden, dann Neuanlegen möglich
' Commandbutton Login deaktivieren und Commandbutton Neu
If Trim(TextBox1.Value)  Sheets(Admin).Range("A:A") Then
MsgBox "Benutzername noch nicht vorhanden, wollen Sie ihn neu anlegen?", _
16, "Hinweis!!!"
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If

ich denke, dass der Fehler bei


' Wenn Benutzername nicht vorhanden, dann Neuanlegen möglich
' Commandbutton Login deaktivieren und Commandbutton Neu
If Trim(TextBox1.Value)  Sheets(Admin).Range("A:A") Then
MsgBox "Benutzername noch nicht vorhanden, wollen Sie ihn neu anlegen?", _
16, "Hinweis!!!"
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If

liegt, wie muss es aussehen, wenn er checken soll, ob der Code schon in Tablle Admin Spalte A vorhanden ist
Gruß Benedikt

Beliebteste Forumthreads (12 Monate)

Überprüfung, Username und Passwort in Tabelle vorh

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Überprüfung, Username und Passwort in Tabelle vorh

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread