Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 19 Then
If Target.FormatConditions.Count > 0 Then
If IsNumeric(Target.Value) Then
MsgBox Target.FormatConditions(1).Formula1
If CLng(Target.Value) < CLng(Right(Target.FormatConditions(1).Formula1, Len(Target.FormatConditions(1).Formula1) - 1)) Then MsgBox "Achtung, Ein Substrat hat den Mindestbestand erreicht!"
End If
End If
End If
End Sub