Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bedingungen für MsgBox

Bedingungen für MsgBox
04.08.2005 20:34:34
Max
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingungen für MsgBox
04.08.2005 20:37:30
Matthias
Hallo Max,
du hast es fast schon selbst formuliert:
If Range("A1").Value  0 Then

Wobei ich glaube, bei Prozentwerten musst du 0.3 verwenden...
Gruß Matthias
AW: Bedingungen für MsgBox
04.08.2005 20:40:07
Kay
Hallo Max,
probiere das mal:

Private Sub Worksheet_Calculate()
If Range("A1").Value > 0 And Range("A1").Value  < 30 Then
MsgBox "Der Wert von 30 wurde unterschritten!"
End If
End Sub

Gruß
Kay
AW: Bedingungen für MsgBox
04.08.2005 20:40:54
Hajo_Zi
Hallo Max,
Option Explicit
Dim BoMeldung As Boolean

Private Sub Worksheet_Calculate()
If Range("A1").Value < 30 And BoMeldung = False Then
MsgBox "Der Wert von 30 wurde unterschritten!"
BoMeldung = True
Else
BoMeldung = False
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Bedingungen für MsgBox (erledigt)
04.08.2005 20:49:34
Max
Großes Dankeschön an Alle, funktioniert einwandfrei ;-))
Einen schönen Abend noch!
Gruß
Max

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige