Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Barcode in Textbox Userform einscannen

Forumthread: Barcode in Textbox Userform einscannen

Barcode in Textbox Userform einscannen
16.11.2016 12:59:20
Michael
Hallo Excel Kenner und Könner,
habe eine Userform, auf welcher eine TextBox aktiv sein soll, sodass der Anwender per Handscanner Daten einscannen kann.
Das Makro legt die Daten im Hintergrund auf ein Sheet ab und der Fokus soll anschließend sofort wieder auf der geleerten TextBox liegen, um weitere Daten einzuscannen (ohne irgendwelche Maus-/Tastatureingaben).
Mit dem Event "Change" verstricke ich mich zu sehr, da dies ja immer wieder auslöst und ich kein Fokus mehr darauf bekomme.
Andere Möglichkeiten sehe ich derzeit nicht, da ich ja nicht die Eingabe mit der Tastatur bestätigen will.
Vielleicht hat jemand von Euch eine Idee oder nen Codeschnipsel der dieses Problem löst und meinen Tag unabhängig vom Wetter wieder erhellen lässt;)
Danke vorab
Grüße aus der schönen Pfalz
Michael
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 13:12:04
JoWE
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 13:27:22
Michael
Hallo JoWE,
rück's raus wenn es eine bessere Lösung gibt. Mein Projekt ist immer noch im Aufbau, von daher kann ich auch andere Dinge einfließen lassen.
Danke Michael
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 13:40:08
Bernd
Servus,
je nach Barcodescanner schickt er neben den Daten automatisch noch die Enter-Taste hinterher.
Setze den Focus mal in eine Zelle der Datei und drücke den Abzug des Scanners. Eigentlich sollte er die Daten in diese Zelle schreiben und automatisch in die nächste Zeile springen...
Ich hatte mal nen ähnlichen Fall, unter
https://social.msdn.microsoft.com/Forums/de-DE/779750e4-ddd1-4b97-82e7-09919d8eb0d6/barcode-scanner-mit-excel-verbinden-befehle-in-vba-ansprechen-des-scanners?forum=officede
konnte ich mir ein paar nützliche Infos zusammensuchen...
Grüße, Bernd
Anzeige
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 13:40:48
JoWE
Hallo Michael,
ich benutze ebenfalls einen Handscanner, der mir Seriennummern aus Barcodes einliest.
Sobald meine Excel Tabelle geöffnet ist, schreibt ein Scan (Piep) die SN in die Zelle die gerade aktiv ist. Der nächste Can landet in der Zelle darunter usw.. Das alles ohne Tastur- und/oder Mausbedienung.
Gruß
Jochen
Anzeige
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 13:50:18
UweD
Hallo
ich mach es so.
Die Spalte A wird überwacht. Column 1
- Bei Scan (oder Handeingabe, wenn Barcode unlesbar) wird der Wert in A eingetragen,
- in B der Zeitstempel
- Die Zelle darunter aktiviert
gehe so vor
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
     If Target <> "" Then
        Target.Offset(0, 1) = Format(Now, "DD.MM.JJJJ hh:mm:ss")
        Target.Offset(1, 0).Select
    End If
End Sub
LG UweD
Anzeige
AW: Nur mal so: Warum der Umweg über eine UF? oT
16.11.2016 15:50:53
Michael
Hallo die Herren,
hatte mir eine andere Idee als "nur"(nicht böse verstehen) auf das Sheet schreiben erhofft, da ich dem Mitarbeiter eine übersichtliche mit anderen Daten bestückte Oberfläche zum auswählen geben möchte.
Wenn der Scanner ein CR oder Enter mit sendet, gibt es da kein Event "nach Eingabe" oder so ?
Gruß Michael
Anzeige
gelöst: Warum der Umweg über eine UF? oT
17.11.2016 11:37:32
Michael
Hallo UweD,
ich könnt Dich knutschen,
ok, so weit will ich nicht gehen, hat mich trotzdem zum Erfolg gebracht.
Alle controls auf TabStop false außer TextBox und commandbutton. Dieser verweist beim Event enter auf Textbox1.Setfocus.
Hammergeil
Vielen vielen vielen Dank, du hast mich nach echten 5h erlöst.
Grüße Michael
Anzeige
AW: Prima! owT
17.11.2016 11:44:48
UweD
;
Anzeige
Anzeige

Infobox / Tutorial

Barcode in Textbox Userform einscannen

Schritt-für-Schritt-Anleitung

  1. Userform erstellen: Öffne Excel und erstelle eine Userform. Füge eine TextBox hinzu, in die der Barcode gescannt werden soll.

  2. VBA-Editor öffnen: Rechtsklicke auf das Userform und wähle „Code anzeigen“ aus.

  3. Barcode scannen aktivieren: Verwende folgenden VBA-Code, um sicherzustellen, dass die TextBox den Fokus behält und Daten eingelesen werden können:

    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   TextBox1.SetFocus
End Sub

  4. Daten speichern: Füge den Code hinzu, um die gescannten Barcodes in ein Arbeitsblatt zu schreiben. Dies kann in der TextBox_Exit-Funktion oder in einem entsprechenden Event geschehen.

    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Worksheets("Daten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = TextBox1.Value
   TextBox1.Value = ""
   TextBox1.SetFocus
End Sub

  5. Barcode Scanner konfigurieren: Stelle sicher, dass der Barcode Scanner so konfiguriert ist, dass er automatisch die Enter-Taste sendet, nachdem ein Barcode gescannt wurde. Dies ermöglicht das automatische Springen zur nächsten Zeile.

Häufige Fehler und Lösungen

  • Problem: Die TextBox verliert nach dem Scannen den Fokus.

    • Lösung: Stelle sicher, dass in den Eigenschaften der TextBox die TabStop-Eigenschaft auf True gesetzt ist und dass der Fokus im Exit-Event zurückgesetzt wird.

  • Problem: Die gescannten Daten erscheinen nicht im Arbeitsblatt.

    • Lösung: Überprüfe, ob der Code korrekt in die Userform eingefügt wurde und dass das Arbeitsblatt mit dem Namen „Daten“ existiert.

Alternative Methoden

  • Direktes Scannen in Zellen: Anstatt eine Userform zu verwenden, kannst du den Barcode direkt in eine Zelle scannen. Der Barcode-Scanner sollte so konfiguriert sein, dass er die Eingabe automatisch in die nächste Zeile fortsetzt.

  • VBA Barcode Scanner: Entwickle ein VBA-Makro, das auf das Worksheet_Change-Ereignis reagiert, um die gescannten Barcodes zu verarbeiten und zusätzliche Informationen hinzuzufügen.

Praktische Beispiele

  • Beispiel für Barcode-Eingabe: Wenn du einen Barcode scannst, wird er automatisch in die nächste verfügbare Zeile in Spalte A geschrieben, und der Zeitstempel wird in Spalte B hinzugefügt:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 And Target.Count = 1 Then
       Cells(Target.Row, 2).Value = Now
       Cells(Target.Row + 1, 1).Select
   End If
End Sub

  • Eingabe von mehreren Barcodes: Verwende eine Schleife, um Barcodes in einer Liste zu scannen und sie in einer Tabelle in Excel anzuzeigen.

Tipps für Profis

  • Scanner anpassen: Stelle sicher, dass der Barcode Scanner auf „Auto Enter“ konfiguriert ist, um die Eingabe zu erleichtern. Bei vielen Scannern kann dies in den Einstellungen oder durch spezielle Codes erfolgen.

  • Datenvalidierung: Implementiere Datenvalidierung in der Excel-Tabelle, um sicherzustellen, dass nur gültige Barcodes erfasst werden.

  • Verwendung von Formeln: Nutze Excel-Formeln, um zusätzliche Informationen zu den gescannten Barcodes zu verknüpfen, beispielsweise Lagerbestände oder Produktinformationen.

FAQ: Häufige Fragen

1. Wie kann ich einen Barcode-Scanner mit Excel verbinden? Um deinen Barcode-Scanner mit Excel zu verbinden, musst du sicherstellen, dass der Scanner als Eingabegerät konfiguriert ist. Die meisten Scanner sind Plug-and-Play und senden die gescannten Daten wie Tastatureingaben.

2. Was kann ich tun, wenn der Scanner keine Daten überträgt? Überprüfe die Verbindungen und die Einstellungen des Barcode-Scanners. Stelle sicher, dass der Scanner im richtigen Modus ist, und teste ihn in einer einfachen Textanwendung, um sicherzustellen, dass er funktioniert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige