ich habe in meiner Datei ein Selection Change event.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "MyEnterEvent"
End Sub
Das Enter Event sieht dann so aus, dass der Inhalt von D8 in eine Liste übertragen wird aber nur dann wenn die Nummer des Mitarbeiters noch nicht in der Liste vorhanden ist. Deswegen habe ich in I1 einfach mit Zählenwenn gearbeitet.
K1 verweist auf D8.
Sub MyEnterEvent1()
If Sheets("Mitarbeiterliste").Range("I1") = 1 Then
GoTo weiter
Else
Sheets("Mitarbeiterliste").Range("K1").Copy
x = Sheets("Mitarbeiterliste").Range("J65536").End(xlUp).Row
Tabelle2.Cells(x + 1, 10).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
weiter:
Range("D8").Select
End Sub
Meine Mitarbeiter sollen sich bevor sie anfangen zu arbeiten abscannen, damit sie erfasst werden.Wenn der Mitarbeiter sich abscannt, erscheint sein Name auf dem Bildschirm (Sverweis). Ich möchte jetzt aber, dass wenn sich kein weiterer Mitarbeiter mehr abscannt, dass dann der Name des vorherigen Mitarbeiters verschwindet und dann ein Text "Bitte abscannen" dort steht.
Wie löse ich das Problem am besten mit VBA?
Ich hoffe ihr könnt mir folgen :)
Danke und Gruß
Ben