|
Hallo nochmal,
da ein Forum ja nur vom Mitmachen lebt, anbei mein funktionierender Code für folgende Aufgabe:
In eine Textbox wird mittels Barcodescanner eine Zahl eingescannt. Dieser Barcode befindet sich auf einem Materialausgabeschein. Die eingescannte Zahl in der Textbox wird dann in der Spalte A gesucht. Wenn die Zahl dort gefunden wurde, werden die im Code benannten benachbarten Zelleninhalte gelöscht. Danach wird die eingescannte Zahl wieder aus der Textbox entfernt. Der Code wird durch die ENTER-Taste ausgelöst. Der Barcodescanner ist so programmiert, dass er mit jeder Betätigung ein ENTER drannhängt. Somit muss man nur einmal in die Textbox clicken und kann dann hintereinander die Barcodes abscannen.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim wks As Worksheet, Wert, Zelle As Range, Nach As Range
Set wks = Worksheets("Tabelle1")
Wert = Me.TextBox1.Value
With wks.Range("A:A")
Set Zelle = .Find(what:=Wert, LookIn:=xlValues, lookat:=xlWhole)
Zelle.Offset(0, 1).ClearContents
Zelle.Offset(0, 2).ClearContents
Zelle.Offset(0, 3).ClearContents
Zelle.Offset(0, 4).ClearContents
Zelle.Offset(0, 8).ClearContents
End With
TextBox1.Value = ""
End If
End Sub
Ich hoffe das kann jemanden Helfen.
Vielen Dank für eure Hilfe
|