Lagerinventur mit Barcodescanner und Excel

[gerdfromgermany]

Servus allerseits.
In meinem Betrieb mache ich die Inventur für den Weinkeller, bisher einfach jeden Artikel zählen und dann in einer ewig langen Excel-Tabelle bis zur richtigen Zeile scrollen. Ich wollte wissen, ob es möglich wäre, einen Barcode Scanner so mit der Liste zu verknüpfen, das, wenn ich etwas scanne (Barcode am Weinregal), Excel automatisch in die richtige Zeile springt und ich die Anzahl eingeben kann.
Über Hilfe, gerne auch per PN wäre ich sehr dankbar.
Viele Grüße
Gerd

[derHoepp]

Moin,

erfasse doch einfach Artikelnummer und Menge. Dafür brauchst du kein starres Formular, in dem du hin und her springst.

Viele Grüße
derHöpp

[ralf_b]

das geht bestimmt, aber wie weis Excel dann das nach der Zahleneingabe wieder zur Scannzelle gesprungen werden soll? 
bei Fehleingaben z.b Zahlen korrigieren könnte so ein Ablauf dann zu Problemen führen.  

ich rate dazu zwei Zellen für die Eingabe vorzusehen und einen Button einzubauen, der dann beim klick die Daten in die Tabelle verteilt.  

schau dir mal solche Lösungen an  z.b.  Mobile Datenerfassung - Scan IT to Office . das ist ein Addin für Excel und Smartphone. Damit habe ich schon herumprobiert. Leider ist das nicht kostenlos, aber man kann übers Smartphone Eingabeformulare basteln und die Eingaben direkt in eine Exceldatei übers Netz übertragen oder die Daten im Gerät sammeln und später exportieren.

[Ralf A]

Ich wollte wissen, ob es möglich wäre, einen Barcode Scanner so mit der Liste zu verknüpfen, das, wenn ich etwas scanne (Barcode am Weinregal), Excel automatisch in die richtige Zeile springt und ich die Anzahl eingeben kann.

Sicher geht das. Der Barcode ist ja auch nichts anderes als ein Wert. Du brauchst eine Tabelle, die den Barcode mit dem Wein und/oder dem Regal vereint. Der Rest lässt sich über einen ausgelösten VBA Code nach jedem neuen Scanvorgang realisieren.

[schauan]

Hallöchen,

wenn Du beim Einlesen des Barcodes in der entsprechenden Zelle bist, kann das ein Ereignis auslösen - und das kann da verarbeitet werden:

Private Sub Worksheet_Change(ByVal Target As Range)
...

In dem Makro kannst Du z.B. prüfen, ob Du in der richtigen Spalte bist, ob die Eingabe numerisch ist oder was auch immer, und wenn es passt dann in eine Zelle springen - entweder absolut (z.B. Range("...")) oder relativ (z.B. Target.Offset ...)

[Gast 123]

Hallo

ich habe eine Bücherliste mit vielen Büchern. Das ging sehr einfach über Autofilter.
Die Eingabezelle befand sich in Zelle O2, der Autofilter begann ab Zeile 3.

Bei dem Code musst du nur deine LastSpalte, und in der If Zeile deine Eingabe Zelle angeben.
Dann sollte es über Autofilter laufen.  Gibst du nur eine Teil Artikelnummer ein werden alle Teilnummern angezeigt.

mfg Gast 123

Code:

Constant LSpa = "Z"  'LastSpalte
Dim FiName As String, Col As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
If Target.Address(0, 0) = "B2" Then

    On Error Resume Next
    ActiveSheet.AutoFilterMode = False
    If Target.Value = Empty Then Exit Sub
   
    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
    Col = Target.Column
    FiName = "*" & Target & "*"
   
    Range("A3:" & LSpa & lz1).AutoFilter
    Range("A3:" & LSpa & lz1).AutoFilter Field:=Col, Criteria1:=FiName
End If
Exit Sub

Fehler: MsgBox "Target Error"
End Sub

---

Nachtrag:  Schreibfehler bitte korrigieren  Constant LSpa in - Const LSpa ändern!!

---

Nachtrag:  der Code gehört als Target Makro in die Inventur Tabelle, NICHT in ein normales Modul!

[gerdfromgermany]

Danke für all die Hinweise!
Viele Grüße aus München
Gerd