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