Textbox und Barcode Scanner
05.09.2014 08:02:29
Markus
ich hätte gerne über einen Barcode Scanner meine Lager Tabelle gepflegt.
Leider hab ich das Ergebnis bis jetzt nur bedingt umsetzen können.
Es sollte so sein das über einen Option Button hinzufügen oder entnehmen angewählt wird und dann ein Barcode gescannt wird die ID Nr. aus dem Barcode (beginnt mit 10001)wird in Eine versteckte Textbox in der Userform geschrieben und soll in Spalte U gesucht werden und dann aus derselben Zeile in Spalte N der Bestand geändert werden.
Falls in Spalte N "Alt" steht soll eine Msg Box mit einer Nachricht aufgehen.
Leider bekomme ich es nicht hin das In Spalte U gesucht wird, im Moment Zähle ich die Zeilen, dass funktioniert allerdings nur Solange bis ein neuer Artikel eingepflegt wird.
Ich hoffe mir kann jemand Helfen.
Mfg
Markus
p.s. mein bisheriger Code
Option Explicit
Dim barc As Integer
Dim entn As Integer
Private Sub OptionButton1_Click()
TextBox1.SetFocus
End Sub
Private Sub OptionButton2_Click()
TextBox1.SetFocus
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.SetFocus
If KeyCode = 13 Then
barc = TextBox1.Value
TextBox1.Text = ""
With ActiveCell
End With
Sheets("Regalordnung").Activate
If Tabelle2.Cells(barc + 2, 14).Value = "Alt" Then
MsgBox "Altes Bauteil kein Bestand hinterlegt"
Exit Sub
End If
If OptionButton1.Value = True Then
Tabelle2.Cells(barc + 2, 14).Value = Tabelle2.Cells(barc + 2, 14).Value - Val(1)
If Tabelle2.Cells(barc + 2, 14).Value = 0 Then
MsgBox "Achtung Bestand aufgebraucht! Ersatz bestellen", , "Warnung"
End If
End If
If OptionButton2.Value = True Then
Tabelle2.Cells(barc + 2, 14).Value = Tabelle2.Cells(barc + 2, 14).Value + Val(1)
End If
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub