AW: Formatieren
26.03.2021 22:16:47
ralf_b
versuch mal das
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