Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Passwort - Geht das eleganter?

Forumthread: Userform Passwort - Geht das eleganter?

Userform Passwort - Geht das eleganter?
02.10.2012 11:22:19
Dietmar
Guten Tag in die Runde,
habe mir eine Userform mit alternativer PW-Eingabe gebastelt.
Funktioniert auch so wie es soll. In A2 und B2 des Sheets *Eingangsseite* sind die beiden Möglichkeiten für die PW-Eingabe hinterlegt (Master-PW und 12345678)
Allerdings kommt mir der Code recht holperig vor. Jemand eine Idee, wie ich den Code straffen kann?
Private Sub cmd_OK_Click()
Application.ScreenUpdating = False
If txtPasswort.Text  Sheets("Eingangsseite").Range("A2") Then
If txtPasswort.Text  Sheets("Eingangsseite").Range("B2") Then
MsgBox "Nein!" _
& vbCrLf & vbCrLf & "Das Passwort ist leider FALSCH."
Application.ScreenUpdating = True
MsgBox "Die Datei wird geschlossen", vbInformation, "Hinweis"
ThisWorkbook.Close savechanges:=False
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "12345678 akzeptiert"
Application.ScreenUpdating = True
End If
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "Master-PW akzeptiert"
Application.ScreenUpdating = True
End If
End Sub
Vielen Dank und viele Grüße
Dietmar aus Aachen

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If ... And ... Then
02.10.2012 12:03:47
Matthias
Hallo Dietmar
Sollte doch schon reichen
If txtPasswort.Text  Tabelle1.Range("A2") And txtPasswort.Text  Tabelle1. _
Range("B2") Then
MsgBox "Nein!" & vbLf & vbLf & "Das Passwort ist leider FALSCH."
Else
MsgBox "Ok!" & vbLf & vbLf & "LogIn erfolgreich."
End If
Gruß Matthias

Anzeige
Danke, schön schlank :-)
02.10.2012 15:07:22
Dietmar
Hallo Matthias,
na das sieht doch schon ganz anders aus :-)
Besten Dank!
Viele Grüße
Dietmar
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige