Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Range("L8:M1000"), Target) Is Nothing Then
Select Case UCase$(Target.Value)
Case "NB"
MsgBox "Begründung warum keine Schulung benötigt wird unter Bemerkung eintragen.", _
vbOKOnly + vbExclamation, "Sicherheitsschulung nicht benötigt!"
Case ".NEIN"
MsgBox "Begründung warum Ausweis nicht Kontrolliert wurde unter Bemerkung eintragen." & "" _
& vbCrLf & "", _
_
vbOKOnly + vbExclamation, "Keine Ausweiskontrolle!"
Case "NEIN"
MsgBox "Es wird eine Schulung oder ein Refresh benötigt." & "" _
& vbCrLf & "Kontaktperson darüber informieren und die entsprechenden Dokumente vorbereiten.", _
_
vbOKOnly + vbExclamation, "Sicherheitschulung nicht vorhanden / abgelaufen!"
End Select
End If
On Error GoTo 0
End Sub