Hallo zusammen
Folgende Fragen:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each zelle In Range("L8:M10")
If zelle.Value = "NB" Then
MsgBox "Begründung warum keine benötigt wird unter Bemerkungen eintragen.", vbOKOnly + vbInformation, "Sicherheitsschulung nicht benötigt!"
End If
If zelle.Value = "NEIN" Then
MsgBox "Es wird eine Schulung oder ein Refresh benötigt." & "" _
& vbCrLf & "Kontaktperson darüber informieren und die entsprechenden Dokumente vorbereiten.", vbOKOnly + vbInformation, "Sicherheitschulung nicht vorhanden / abgelaufen!"
End If
Next
End Sub
Mit diesem Code öffnet sich bei erkennen von NB oder Nein die Messagebox.
Es soll aber immer nur die aktive Zelle kontrolliert werden. Wenn ich jetzt schon im festgelegten Bereich ein Nein habe und in einer neuen Zeile nochmals ein Nein, wird mir immer für beides die Msgbox angezeigt.
Danke für eure Hilfe
|