|
Excel-Version: xl-97
goto anzweisung passt nicht von mehmet vom 04.05.2002 - 19:16:40
Re: goto anzweisung passt nicht von WernerB. vom 04.05.2002 - 19:41:45
danke an euch, es läuft von mehmet vom 04.05.2002 - 19:40:16
Re: goto anzweisung passt nicht von Rolf, Lgh. vom 04.05.2002 - 19:32:18
Re: goto anzweisung passt nicht von jinx vom 04.05.2002 - 19:30:17
 |
lieber forum warum läuft das makro nicht?
'Paßwortabfrage: Nach 3 Fehlversuchen Datei ungespeichert schließen
Sub Pruefen()
Dim PW, PWEingabe, Fehler
PWort = "abc"
Fehler = 1
'Die Passwort Eingabe wird geprüft
'nochmal:
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
If PWEingabe <> PWort Then
'Prüfen wie oft bereits Fehler
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben!", _
vbOKOnly, "Falsche Eingabe"
Fehler = Fehler + 1 'Fehler zählen
GoTo PWEingabe 'Pruefen ' nochmal 'Zurück zur Paßworteingabe
Else
MsgBox "Sie haben 3 Mal ein falsches Paßwort eingegeben" _
& Chr(13) & "Die Datei wird geschlossen"
'Datei ohne Speichern schließen
ThisWorkbook.Close SaveChanges:=False
End If
Else
MsgBox "Ihre Paßwort-Eingabe war OK"
End If
End Sub
dank für anregungen gruss
|
Moin, mehmet, die Sprunganweisung fehlt, Änderung wie folgt:
...
'Die Passwort Eingabe wird geprüft
'nochmal:
PWEingabe: 'Definition der Sprungmarke
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
... cu
jinx
|
|
Hallo, Du hast die Sprungmarke vergessen:
'Paßwortabfrage: Nach 3 Fehlversuchen Datei ungespeichert schließen
Sub Pruefen()
Dim PW, PWEingabe, Fehler
PWort = "abc"
Fehler = 1
'Die Passwort Eingabe wird geprüft
'nochmal:
Sprungmarke:
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
If PWEingabe <> PWort Then
'Prüfen wie oft bereits Fehler
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben!", _
vbOKOnly, "Falsche Eingabe"
Fehler = Fehler + 1 'Fehler zählen
GoTo Sprungmarke 'Pruefen ' nochmal 'Zurück zur Paßworteingabe
Else
MsgBox "Sie haben 3 Mal ein falsches Paßwort eingegeben" _
& Chr(13) & "Die Datei wird geschlossen"
'Datei ohne Speichern schließen
ThisWorkbook.Close SaveChanges:=False
End If
Else
MsgBox "Ihre Paßwort-Eingabe war OK"
End If
End Sub
Gruss Rolf
besten dank
|
|
Hallo Mehmet, die Sprungmarke fehlte, die Variablendimensionierung habe ich korrigiert:
Option Explicit
'Passwortabfrage: Nach 3 Fehlversuchen Datei ungespeichert schliessen
Sub Pruefen()
Dim PWEingabe As String
Dim Fehler As Byte
Const PWort As String = "abc"
Fehler = 0
'Die Passwort Eingabe wird geprüft
Wiederholung:
'nochmal:
PWEingabe = InputBox("Bitte geben sie Ihr Passwort ein" & Chr(13) & _
"Das richtige Passwort lautet: ""abc""", "Passwortabfrage")
If PWEingabe <> PWort Then
'Prüfen wie oft bereits Fehler
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Passwort eingegeben!", _
vbOKOnly, "Falsche Eingabe"
Fehler = Fehler + 1 'Fehler zählen
GoTo Wiederholung: 'Pruefen ' nochmal 'Zurück zur Passworteingabe
Else
MsgBox "Sie haben 3 mal ein falsches Passwort eingegeben" _
& Chr(13) & "Die Datei wird geschlossen"
'Datei ohne Speichern schliessen
ThisWorkbook.Close SaveChanges:=False
End If
Else
MsgBox "Ihre Passwort-Eingabe war OK"
End If
End Sub
Viel Erfolg wünscht WernerB.
|
Das Archiv des Excel-Forums