Hallo zusammen,
Wir wollen bei uns eine kleine Datei basteln um Barcodes in eine Tabelle zu kopieren.
Unser Ziel ist es, dass wir eine UserForm starten und über diese die Barcodes gescannt.
Wenn der Barcode gescannt wurde dann soll die Nummer in eine intelligente Tabelle geschrieben werden (Tabelle soll automatisch erweitert werden)
anschließend soll die Textbox automatisch geleert werden und der Corser wieder in der Textbox sein.
Wir haben eine Lösung gefunden aber mit gefällt die Lösung noch nicht, da wir "'SendKeys "{UP}"" Bzw "TAB" benutzen.
hier mal der Code
Private Sub ScanFeld_AfterUpdate()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
Dim Zeile As Long
'Zeile hinzufügen
tbl.ListRows.Add
'Zeile in Variable speichern
Zeile = tbl.DataBodyRange.Rows.Count
With tb_Datenbank
tbl.DataBodyRange(Zeile, 2).Value = ScanBox.ScanFeld
tbl.DataBodyRange(Zeile, 1).Value = Zeile
End With
ScanBox.ScanFeld = ""
'SendKeys "{UP}"
End Sub
Wir dachten eigentlich an ".SetFocus" aber das funktioniert leider nicht.
Vielen Dan schon mal
Gurß Dominik
|