goto anzweisung passt nicht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: xl-97
nach unten

Betrifft: goto anzweisung passt nicht
von: mehmet
Geschrieben am: 04.05.2002 - 19:16:40

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
nach oben   nach unten

Re: goto anzweisung passt nicht
von: jinx
Geschrieben am: 04.05.2002 - 19:30:17

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

nach oben   nach unten

Re: goto anzweisung passt nicht
von: Rolf, Lgh.
Geschrieben am: 04.05.2002 - 19:32:18

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
nach oben   nach unten

danke an euch, es läuft
von: mehmet
Geschrieben am: 04.05.2002 - 19:40:16

besten dank

nach oben   nach unten

Re: goto anzweisung passt nicht
von: WernerB.
Geschrieben am: 04.05.2002 - 19:41:45

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.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Listbox füllen"