Hallo Alex!
Also hier habe ich mal eine Variante. Problem ist wohl, dass die Hintergrundfarbe bei bedingter Formatierung nicht ausgewertet werden kann. Gehe deshalb über die bedingte Formatierung an sich. Es wird beim Ändern in Spalte A geprüft, ob in der Zelle eine bedingte Formatierung ist. Wenn ja, nimmt er vom ersten Format (da wird vermtl. irgendwas mit < Zahl stehen) die Zahl und prüft, ob der Wert der Zelle kleiner ist.
Du müsstest nur schauen / anpassen
- ob die Werte in Spalte 1 stehen - bei Target.Column = 1 sonst eine andere Zahl für die Spalte einsetze.
- es die erste oder eine weiter Formatierung ist Target.FormatConditions(1) hier die Formatierung an der Zahl ändern
- und ob die Zahl in der Formatierung der erste oder zweiter Wert ist (bspw. bei von bis ) Target.FormatConditions(1).Formula1 hinten bei Formula ggf. auf 2 ändern.
Ich hoffe du weißt was ich damit meine. Ansonsten mal deine bedingte Formatierung (also die Formel) posten.
Hinweis noch. Das läuft hier auf Exce 2003. Ob es auch bei den neuen Versionen läuft, müsste ich erst auf Arbeit prüfen. Den Code im VBE unter Diese Arbeitsmappe einfügen.
Gruß
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
If Target.FormatConditions.Count > 0 Then
If IsNumeric(Target.Value) Then
If CLng(Target.Value) < CLng(Target.FormatConditions(1).Formula1) Then MsgBox "Achtung ein Artikel hat den Mindestbestand erreicht."
End If
End If
End If
End Sub
|