Bedingungen für MsgBox
04.08.2005 22:34:34
Max
in einer Arbeitsmappe wird in einer Zelle ein Prozentwert errechnet. Bei
Unterschreitung von 30% soll eine MsgBox erscheinen.
Ein Makro dafür habe ich gefunden:
Option Explicit
Private Sub Worksheet_Calculate()
If Range("A1").Value < 30 Then
MsgBox "Der Wert von 30 wurde unterschritten!"
End If
End Sub
(Datei: https://www.herber.de/bbs/user/25333.xls )
Mein Problem:
Die MsgBox soll nur erscheinen, wenn der Prozentwert 0 ist.
Bleibt die Zelle leer, soll keine MsgBox erscheinen.
Wie müssen die Bedingungen in dem Makro erweitert werden?
Es wäre schön, wenn jemand eine Lösung dafür hätte ;-)
Gruß
Max
Anzeige