Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox mit Barcodescanner

Textbox mit Barcodescanner
01.02.2022 15:13:44
Nick
Hallo,
ich fülle eine Textbox in einem Userform mit einem Barcodescanner und überführe den Text nach Abschluss des Scan-Vorgangs (wenn die komplette Zeichenkette in der Textbox steht und der Scanner die Eingabe mit der Eingabetaste bestätigt hat) in eine Listbox.
Ziel ist es danach das Textfeld wieder auf den Ursprungszustand zurückzusetzen und zu aktivieren, damit ich wieder einen neuen Datensatz einscannen kann und dieser an die Listbox angefügt wird.
Ich habe nun schon versucht, nachdem die Eingabe durch den Scanner erfolgt ist, diese Eingabe auf den Ascii 13 zu überprüfen um dann ein Makro zu starten, was die Listbox füllt und die Textbox löscht und wieder aktiviert für den nächsten Datensatz. Dadurch dass durch die Eingabe des Scanners der Focus auf den nächsten Tabindex springt bekomme ich nun nicht mehr die Textbox1 als ursprungstextbox aktiviert.
Könnt ihr hier helfen? Oder gibt es einen einfacheren Weg eine Listbox mit einer Scanner-Eingabe zu füllen?
Vielen Dank
Gruß
Nick

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox mit Barcodescanner
01.02.2022 15:16:52
{Boris}
Hi,
zeig doch mal Deinen Code.
VG, Boris
AW: Textbox mit Barcodescanner
01.02.2022 16:54:36
Nick 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With Me.ListBox1
.AddItem TextBox1.Value
End With
TextBox1.Value = ""
TextBox1.SetFocus
End If
End Sub

AW: Textbox mit Barcodescanner
01.02.2022 16:55:48
Nick 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With Me.ListBox1
.AddItem TextBox1.Value
End With
TextBox1.Value = ""
TextBox1.SetFocus
End If
End Sub

AW: Textbox mit Barcodescanner
01.02.2022 17:11:01
ralf_b
warum nimmst du nicht das Change Ereignis der Textbox?
der Scanner packt ja ein komplettes Wort in die Textbox.
im Change Event die Länge des Textes prüfen und die Listbox füllen.
Dann der Textbox den Focus geben.
Anzeige
AW: Textbox mit Barcodescanner
01.02.2022 17:16:36
Nick
Das habe ich auch schon probiert. Allerdings schreibt der Scanner nicht ein gesamtes Wort sondern einzelne Buchstaben. Da alle Produkte eine unterschiedliche Länge haben (der Barcode gibt den Produktnamen zurück) kann ich somit nicht auf die Länge des Inhalts prüfen.
AW: Textbox mit Barcodescanner
01.02.2022 17:28:36
ralf_b
beim Change ist es ratsam auf Länge oder ungleich leer zu prüfen damit du dir keine Leerwerte in die Listbox holst. Denn auch das Leermachen der Textbox löst ein change event aus.
Nachfrage...
01.02.2022 17:11:18
UweD
&GT&GT ich fülle eine Textbox in einem Userform mit einem Barcodescanner und überführe den Text nach Abschluss des Scan-Vorgangs (wenn die komplette Zeichenkette in der Textbox steht und der Scanner die Eingabe mit der Eingabetaste bestätigt hat) in eine Listbox.
Scannst du mehrere barcodes hintereinander in die gleiche Textbox?
Also z.B. erst Lagerort, dann Artikelnummer, dann Menge und zum Schluss noch einen Steuercode (Enter)
LG
Anzeige
AW: Nachfrage...
01.02.2022 17:14:29
Nick
Jein, also ich scanne den Barcode des ersten Produktes in Textbox1 und möchte dann, nachdem dieser Scan mit dem Eintrag in die Listbox abgeschlossen ist, den nächsten Barcode des nächsten Produktes wieder in Textbox1 scannen.
AW: Textbox mit Barcodescanner
01.02.2022 17:16:34
onur
Der Code muss in
Private Sub TextBox1_Exit
Da nach "Enter"-Taste automatisch die Textbox verlassen wird.
Dann brauchst du ach nicht nach KeyCode=13 zu prüfen.
AW: Textbox mit Barcodescanner
01.02.2022 17:21:08
Nick
Das habe ich schon probiert, funktioniert sicherlich auch. Das eigentliche Problem ist allerdings wieder zurück in Textbox1 zu kommen.
AW: Textbox mit Barcodescanner
01.02.2022 17:28:57
onur
SO geht das:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.ListBox1
.AddItem TextBox1.Value
End With
TextBox1.Value = ""
Cancel = True
End Sub

Anzeige
AW: Textbox mit Barcodescanner
01.02.2022 17:36:36
Nick
VIELEN DANK!
ES FUNKTIONIERT!!!! PERFEKT!!!
gerne!
01.02.2022 17:37:12
onur

22 Forumthreads zu ähnlichen Themen

Uebergabe durch einen Barcodescanner
Daniel

Hallo zusammen
Folgendes "Problemchen" habe ich:
Meine Datei hat 14 Sheets (Jan-Dez, Erfassen und Tabelle4). Da im Sheet Erfassen in Zelle A2 von einem Barcodescanner eine Nummer geschrieben wird, ist es "zwingend" nötig, dass das Sheet Erfassen und die Zelle A2 immer aktiv ist. Da es M...
26.08.2010 20:11:29
Thread-ID: 1174363
3 Beiträge
Anzeige
Anderer Sheetname keine Code-abbarbeitung
Tomsen

Kann mir jemand erklären, warum mein Code nicht abgearbeitet wird, wenn ich den SheetName ändere der bleibt immer an folgender Zeile hängen:
ActiveSheet.ListObjects("Blatt1").Range.AutoFilter Field:=Rows(1).Find("*ParamName*").Column, Criteria1:="FULLITEMNAME"
Davor aktiviere ich das Sh...
26.10.2010 14:18:12
Thread-ID: 1183939
3 Beiträge
Bedingung für Code in Nachbarzelle
Tim

Hallo,
ich habe einen Code, mit dem ich Bilder anzeigen lasse, wenn man in Spalte C klickt und ein entsprechendes Bild vorhanden ist.
Weiss jemand von Euch, was ich ergänzen muss, wenn ich folgende Voraussetzung an den Beginn stellen möchte ?
1) Bei Klick in Spalte C, prüfe als er...
17.04.2012 16:46:24
Thread-ID: 1259802
6 Beiträge
Anzeige
Progressbar in Code integrieren
ela

hallo,
ich Habe folgendes problem.
Und zwar möchte ich einen Fortschrittsbalken in mein Programm integrieren.
Das Programm hat die Funktionen Dateien auf eine SHarepointseite hochzuladen. Welche dateien hochgeladen werden sollen wird durch das anhaken von kontrollkästschen abgefragt...
23.07.2014 11:18:19
Thread-ID: 1371782
25 Beiträge
Verknüpfung eines Barcodescanners mit Excel
Georg

Hallo ,
ich hoffen mir kann hier jemand helfen.
Ich führe eine Geräteliste als Exceltabelle, diese Geräte müssen regelmäßig geprüft werden und ich möchte diese Prüfung nicht mehr per Hand eintragen. Ich dachte mirm das ich jedes Gerät mit einen Barcode versehen kann und diesen mit Exce...
23.03.2016 18:08:48
Thread-ID: 1483914
5 Beiträge
Bestimmte Zeilen überspringen bei Barcodescann
Jürgen

Hallo werte User,
ich scanne Barcodes ein. Es wird nur eine Zelle befüllt. Nach jedem Scann soll der Cursor automatisch eine Zeile nach unten springen. Dieses Problem scheine ich schon gelöst zu haben.
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A" & Target.Row)...
14.09.2016 10:16:32
Thread-ID: 1514267
8 Beiträge
ppt.-Datei (per Barcodescan) in Tb öffnen
Marvin

Grüßt euch,
ich verzweifle bei folgender Idee:
Ich habe:
Eine TextBox1 im Formular, keine Userform.
Einen Barcode 1AB4444
Eine PowerPoint Datei 1AB4444.ppt in einem Ordner gespeichert.
Einen Barcodescanner
Nun möchte ich folgendes Szenario realisieren:
Ich scann...
22.03.2017 16:53:52
Thread-ID: 1548898
4 Beiträge
Barcode automatisch einfügen
Test1

Guten Tag,
ich habe einen Barcode Scanner und scanne meinen Barcode. Dieser Zahlencode soll dann in ein Excel Sheet eingetragen werden (Spalte B).
Das Problem ist nun, dass ich jedesmal nach dem Scannvorgang enter drücken muss, um in die nächst Zeile zu gelangen. Wie automatisiere ich...
23.05.2017 12:45:22
Thread-ID: 1559956
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
5
5
24
4
7
3
4
9
2
2
3
4
1
1
1
8
1
16
2