Abfrage mit einer InputBox
Verfasst: Di, 11.05.2010 19:34
Hallo,
ich habe einem Tabellenblatt das folgende Makro zugewiesen (wenn das Blatt geöffnet wird)
Sub Main
Dim Passwort As Integer
Dim antwort AS String
antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort
While Passwort <> 0815
MsgBox ("Ungültiges Passwort")
antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort
Wend
Wie kann ich das Makro sicher machen, wenn die Eingabe nicht der Vorgabe entspricht bzw. der Abbruch-Button betätigt wird?
Das Passwort soll eine Zahl sein und 4 Ziffern haben.
Danke für euere Hilfe
Markus
ich habe einem Tabellenblatt das folgende Makro zugewiesen (wenn das Blatt geöffnet wird)
Sub Main
Dim Passwort As Integer
Dim antwort AS String
antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort
While Passwort <> 0815
MsgBox ("Ungültiges Passwort")
antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort
Wend
Wie kann ich das Makro sicher machen, wenn die Eingabe nicht der Vorgabe entspricht bzw. der Abbruch-Button betätigt wird?
Das Passwort soll eine Zahl sein und 4 Ziffern haben.
Danke für euere Hilfe
Markus