ich habe folgendes Problem in einem Userform. Ich nutze einen Barcode Scanner. Dieser liest einfach die Daten ein und nutzt nach dem Einlesen
Hier der Code-Auszug
Private Sub tb_ean_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
tb_ean.SetFocus
If tb_ean.Value = "" Then
MsgBox "Kein Wert angegeben"
Call Abbruch
Exit Sub
End If
Set rng = ActiveSheet.Range("EAN").Find(what:=tb_ean.Value, MatchCase:=True)
If rng Is Nothing Then
With lbl_info
.BackColor = &H80FF&
.Caption = "Eintrag nicht in Datenbank vorhanden!"
.ForeColor = &H0&
.Font.Size = 30
End With
Call Abbruch
Else
'Prüfen ob Gerät schon ausgegeben
If Cells(rng.Row, rng.Column + 3).Value = "Ausgegeben" Then
MsgBox "Gerät bereits ausgegeben"
Call Abbruch
Exit Sub
End If
Call test
End If
tb_ean.SetFocus
End If
End Sub