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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Hilfe gesucht

Forumthread: VBA-Hilfe gesucht

VBA-Hilfe gesucht
05.11.2003 01:16:33
Knut Rosenthal
Ich möchte eine Passwortabfrage erstellen, in der ich 3!!! Werte zulassen möchte. Die 3 zuzulassenden Werte funktionieren schon mal (er akzeptiert diese).
Wenn ich jetzt aber die Fehlermeldung ausgeben möchte, sofern keiner der drei Nummern/ Codes eingegeben wurde machen möchte, kann ich ja immer nur einen Wert ungleich setzen (z. B. 3006) dann sind aber die anderen gültig.

Hier mein Beispiel:


Private Sub OK_Click()
If UserForm1.Passwort.Text = "3006" Then Pass_korrekt
If UserForm1.Passwort.Text = "2408" Then Pass_korrekt
If UserForm1.Passwort.Text = "0909" Then Pass_korrekt
If UserForm1.Passwort.Text = "1806" Then Pass_korrekt
---Die nächste Zeile muss angepasst werden !!!----
If UserForm1.Passwort.Text <> "3006" Then Pass_unkorrekt
End Sub


Es sollen alle Werte außer den akzeptierten (siehe oben: 3006, 2408, 0909, 1806) abgeblockt werden.

Mit freundl. Grüßen
Knut
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Hilfe gesucht
05.11.2003 01:28:33
GerdW
Option Explicit

Private Sub OK_Click()
Select Case Passwort
Case "3006": Pass_korrekt
Case "2408": Pass_korrekt
Case "0909": Pass_korrekt
Case "1806": Pass_korrekt
Case Else: Pass_unkorrekt
End Select
End Sub


Gerd
AW: VBA-Hilfe gesucht
05.11.2003 01:35:40
Knut Rosenthal
Danke.
Anzeige
;

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