Uebergabe durch einen Barcodescanner
Daniel
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 Mitarbeiter gibt, die neugierig sind und in den Sheets "herumzappen", hat mir der Scannerlieferant den Scanner nun so konfiguriert, dass er vor der Nummer ein "F9" sendet. Nun zum Problem. Wie müsste der Code aussehen, damit Excel beim Schicken des "F9" das Sheet Erfassen und die Zelle A2 Aktiviert, befor die Nummer vom Scanner kommt. (Die Schreibgeschwindigkeit des Scanners könnte verlangssamt werden)
Hier mal der Code so wie er bis jetzt ohne Probleme läuft (sofern A2 Aktiv ist)
Dim FERow As Long
Dim FERow1 As Long
Dim Datum As Date
Dim R As Range
Private Sub Worksheet_Change(ByVal Target As Range)
'Dim R As Range
'Wurde A2 geändert?
Set R = Intersect(Target, Range("A2"))
If R Is Nothing Then Exit Sub
'Ereignisse aus, sonst rufen wir uns selber auf
Application.EnableEvents = False
Sheets("Erfassen").Select
Cells(2, 1).Select
Datum = Cells(1, 1)
With Sheets("Erfassen")
FERow = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Range("B" & FERow) = .Range("A2")
FERow1 = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Range("C" & FERow) = Datum
End With
Sheets("Erfassen").Select
Cells(2, 1).Activate
Cells(2, 1).ClearContents
'Ereignisse wieder an
Application.EnableEvents = True
'MsgBox "Willkommen im Training" '& Range " FERow = .Cells(Rows.Count, "D").End(xlUp).Row +1
'.Range("B" & FERow) = .Range("A2")
End Sub
Danke schon mal für eure BemühungenGruss Dani