Warten auf Entertaste / Eingabe
Johannes
folgendes Problem: ich muss den Ablauf eines Codes unterbrechen, bis eine Eingabe erfolgt ist. Im Detail: Es werden Etiketten mit einem DMC-Code gedruckt. Der Benutzer muss mit einem Scanner nun prüfen, ob der DMC Code lesbar ist. Das Leseergebnis wird in die Zelle E40 eingetragen und muss mit der [Entertaste] bestätigt werden.
In Zelle V40 wird geprüft ob das Leseergebnis mit dem berechnten Wert übereinstimmt, Formel:
=WENN(ISTFEHLER(WENN(ISTLEER(E40);"NB";WENN(E40=Etikett!F64;1;0))=WAHR);"NB";WENN(ISTLEER(E40);"NB"; WENN(E40=Etikett!F64;1;0)))
Der Code:
Sub Check_Etikett()
ActiveWorkbook.Save
Sheets("Eingabemaske").Select
While Range("V40") = "NB"
DoEvents
Wend
MsgBox "Scan erfolgt.", vbInformation
If Range("V40") = 0 Then
MsgBox "Der Druck der Etiketten ist nicht in Ordnung !" & Chr(13) & _
" " & Chr(13) & _
"Bitte den Druck erneut starten und prüfen !", _
Title:="Prüfung DMC Code aud dem Ausdruck Etiketten"
Else
Msg = "Die Lesekontrolle der Etiketten mit dem Scanner war erfolgreich der Druck der _
weiteren Dokumente wird fortgesetzt."
Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
Response = MsgBox(Msg, Style)
If Response = vbYes Then Druck_Begleitkarten
If Response = vbCancel Then Times = Items
End If
End Sub
Gruß
Johannes