Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("C5:C1000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
Application.EnableEvents = False
If Target = "" Then
Target.Range("B1:C1").ClearContents 'Achtung: relative "B1:C1"!! 2 ersten Zellen rechts _
_
von Target
Else
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
Application.EnableEvents = False
If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then
If Target = "" Then
Target.Range("B1:C1").ClearContents 'Achtung: relative "B1:C1"!! 2 ersten Zellen _
rechts von Target
Else
If Target.Offset(, -1) = "" Or Len(Target.Offset(, -1)) > 3 Then
MsgBox "Schlüssel-Scan fehlt oder zu lang"
Target.Value = Empty
Target.Offset(, -1).Value = Empty
Else
If Len(Target.Value) > 8 Then
MsgBox ("Scan Stempelkarte ungültig. Bitte wiederholen")
End If
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
End If
End If
ElseIf Not Intersect(Target, Range("B5:B1000")) Is Nothing Then
If Len(Target.Value) > 3 Then
MsgBox "Schlüssel-Scan ungültig. Bitte Scann wiederholen"
Target.Value = Empty
End If
End If
Application.EnableEvents = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen