Barecode scannen
08.11.2021 23:01:17
Torsten
Mein Wunsch wäre nun das ich vielleicht mittels einer Taste ein Pop Up Fenster öffne in welchem ich nun einen Barcode scannen kann und dieser dann die entsprechende Position in den drei Warengruppen finden kann, um den Ein bzw. Ausgang einzutragen. Der Barcode bezieht sich z.B. auf einem in der Tabelle gelisteten EAN Code.
Klasse wäre natürlich wenn man in dem Fenster schon den Ein bzw. Ausgang eintragen könnte und dieser sich dann an entsprechender Position aktualisiert.
Vielleicht hat jemand eine simple Idee zur Realisierung? Die Tabelle ist im Moment pro Warengruppe mit folgendem VBA Code aufgebaut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
Application.EnableEvents = False
On Error GoTo Ausgang
If Target.CountLarge = 1 Then
If Target.Row >= 5 Then
Select Case Target.Column
Case 9
Target.Offset(0, 1).Value = Now
Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
With Worksheets("Protokoll_Warengruppe1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(loLetzte, "A") = Cells(Target.Row, "A")
.Cells(loLetzte, "B") = "Eingang"
.Cells(loLetzte, "C") = Target
.Cells(loLetzte, "D") = Now
End With
Case 11
Target.Offset(0, 1).Value = Now
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value - Target.Value
With Worksheets("Protokoll_Warengruppe1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(loLetzte, "A") = Cells(Target.Row, "A")
.Cells(loLetzte, "B") = "Ausgang"
.Cells(loLetzte, "E") = Target
.Cells(loLetzte, "F") = Now
End With
Case Else
End Select
End If
Else
Application.Undo
MsgBox "Fehler: Mehrfachauswahl ist nicht zulässig."
End If
Ausgang:
On Error GoTo -1
Application.EnableEvents = True
End Sub
Viele GrüßeTorsten