Hallo Werner,
hier ein entsprechendes Makro:
Sub a()
P = ActiveCell.Value
If P 22.5 Then
MsgBox ("Werte zu groß")
End If
End Sub
Ciao Thomas
werner schrieb am 22.07.2010 07:22:10:
Zellwert wir durch eine Formel geändert 1,0 2,0 3,0 4,0 5,0 .... bei allen Werten bis 10,0 soll eine Message Box erscheinen. Bei Werten zwischen 10,1 bis 22,5 soll der Wert ohne Message Box akzeptiert werden. Bei allen Werten über 22,5 soll die Message Box wider erscheinen.
Gruß
Werner |