Worksheet_Change
31.05.2022 08:08:23
Jonas99
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("J41") > Range("C27") Then
MsgBox ("Netto Produktionszeit überschritten!")
ElseIf Range("J64") > Range("C50") Then
MsgBox ("Netto Produktionszeit überschritten!")
ElseIf Range("I42") Range("C46") Then
MsgBox ("Losgröße unterschritten!")
Exit Sub
End If
End Sub