Passwort Abfrage
05.05.2017 08:23:32
Ralf
ich habe ein Makro erstellt, wenn der Button "Total" geklickt wird eine Abfrage gemacht. Das läuft auch soweit, nun zu meinem Problem.
Wenn die Eingabe falsch ist soll nichts weiter passieren, als das die Nachricht aufpoppt "Falsches Kennwort", dies klappt auch aber trotz des falschen Passwortes wird die Prozedur durchgeführt, Wie muss ich das Makro ändern, das wenn Antwort falsch nicht passiert, außer Pop "Falsches Kennwort".
Ich hoffe jemand kann mir helfen.
Danke schon vorab.
Makro:
Sub Password()
Dim wksMailDaten As Worksheet
Dim strInput As String
Set wksMailDaten = ActiveWorkbook.Worksheets("Kassenbeleg")
strInput = InputBox("Bareinzahlungsbetrag eingeben:" & Chr(13) & "Nur ganzen Euro Betrag, ohne _
-Zeichen" & Chr(13) & "" & Chr(13) & "Nach der Eingabe OK klicken")
If strInput = "" Then Exit Sub
If InputBox("Eingabe wiederholen") = wksMailDaten.Range("K9") Then
Else
MsgBox "Falsches Passwort!", vbExclamation, "Fehler"
End If
End Sub