VBA-Hilfe gesucht
05.11.2003 01:16:33
Knut Rosenthal
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