ich habe eine Exelliste die man mit einem Barcodescanner bedienen kann etwas umgebaut.
Es gibt 3 Relevante Zeilen. EAN Nr., Bezeichnung des Artikels und eine spalte in dem die Anzahl angezeigt wird. Wenn ich einen Barcode scanne sucht Excel mir die betreffende Zeile und zählt mir die Anzahl entweder hoch oder runter. (Dies kann man über zwei Radiobuttons auswählen.Einbuchen/Ausbuchen)
Diese Funktion habe ich jetzt soweit umgebaut das wenn ich einen Barcode scanne, Excel mir die Zeile raussucht und mir eine Inputbox ausgibt. Dort kann ich die Menge dann eintragen die entweder Ein oder Ausgebucht werden soll. Dies funktioniert aber nicht. Könnt ihr mir da weiterhelfen? Wenn ich nur Wert = Wert - Cells(zl, sp) benutze funktioniert alles tadellos. Danke schonmal im voraus.
If [xlErstOK] Then
spa = Columns([xlSpalteBezeichnung].Value).Column
'Msg Box
Wert = InputBox("Bitte geben Sie ihren Wert ein!", "")
If Wert "" Then
If [xlnEinAusBuchen] = 2 Then
Wert = Wert - Cells(zl, sp)
Else
If [xlnEinAusBuchen] = 1 Then
Wert = Wert + Cells(zl, sp)
End If
Cells(zl, sp).Value = Wert