Uebergabe durch einen Barcodescanner

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Dani,
ich hab keine Ahnung ob und wie man das vom Scanner gesendete F9 auswerten kann. Mit den folgenden Anpassungen wird das "Herumzappen" beendet/verhindert/erschwert.
Das Schreiben der Scannerdaten in die Liste wird explizit per Makro gestartet (dabei werden dann alle Blätter außer "Erfassen" ausgeblendet und in einer Variablen der Scannstatus True gesetzt) und gestopped (alle Blätter einblenden und Scannstatus auf False setzen).
Zusätlich wird während des Scannens die Selektion anderer Zellen verhindert. Es wird sofort wieder die Zelle A2 aktiviert.
Gruß
Franz

Option Explicit
Dim FERow As Long
Dim FERow1 As Long
Dim Datum As Date
Dim R As Range
Dim bScannen As Boolean
Sub ScannStarten()
Dim oSheet As Object
bScannen = True
For Each oSheet In ThisWorkbook.Sheets
If LCase(oSheet.Name)  "erfassen" Then
oSheet.Visible = xlSheetHidden
End If
Next
End Sub
Sub ScannStop()
bScannen = False
Dim oSheet As Object
For Each oSheet In ThisWorkbook.Sheets
If LCase(oSheet.Name)  "erfassen" Then
oSheet.Visible = True
End If
Next
End Sub
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
If R Is Nothing Or bScannen = False Then
Exit Sub
Else
'Ereignisse aus, sonst rufen wir uns selber auf
Application.EnableEvents = False
If ActiveSheet.Name  "Erfassen" Then
Sheets("Erfassen").Select
Cells(2, 1).Select
End If
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  'Diese Zeile dürfte überflüssig  _
sein!!
.Range("C" & FERow) = Datum
End With
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 If
End Sub
Private Sub Worksheet_Deactivate()
If bScannen = True Then
Me.Activate
Me.Cells(2, 1).Activate
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If bScannen = True Then
Cells(2, 1).Activate
End If
End Sub

Hallo Franz
Danke schon mal für deine Hilfe. Werde das ganze mal einbauen und schauen, wie es sich in der Praxis behauptet. Vom Scanner her gäbe es auch noch andere Möglichkeiten vor der Zahl etwas andere zu senden. Was wäre denn von Excel (bzw. VBA) möglich als String (oder so) vor der Zahl zu erkennen oder auszuwerten, damit das Sheet Erfassen A2 aktiviert würde? Wenn du mir einzelne Varianten als Auswahl geben kannst, so kann ich mal mit dem Gerätelieferant schauen, ob auch der Scanner so etwas unterstützt.
Er kann "Enter", alle "F-Tasten", sowie diverse andere Varianten senden. Eventuell wäre ein "Enter" vor der Zahl, danach kommt zum erfassen der Zahl sowieso eines, hier am hilfreichsten. Natürlich darf Excel beim ersten "Enter" nich in die nächste Zeile springen (dies würde jedoch nur das Sheet "Erfassen" betreffen). Für mich als Laie wäre dies wahrscheinlich am einfachsten zu bewerkstelligen. Was meinst du dazu?
Danke schon mal für Dein/Euer "Kopfzerbrechen"
Gruss Dani

Beliebteste Forumthreads (12 Monate)

Uebergabe durch einen Barcodescanner

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Uebergabe durch einen Barcodescanner

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread