Hallo Karin,
angenommen deine bedingte Formatierung in A5 lautet "Zellwert ist kleiner
als 0" mit Hintergrundfarbe 'rot', dann könntest du im 'Worksheet_Change'-
Ereignis ebenfalls diese Bedingung abfragen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" And Target.Value < 0 Then
MsgBox "Zellwert in " & Target.Address & " ist negativ!", _
vbCritical, "ACHTUNG"
End If
End Sub
Gruß
Sigi