Calculate-Ereignis einmal, MsgBox endlos
18.08.2005 19:00:24
Max
das nachstehende Makro liegt auf Tabellenblatt 1 und funktioniert eigentlich
korrekt.
Leider kommt die MsgBox bei jeder weiteren Zell-Eingabe immer wieder.
Ich habe schon in der Recherche nachgesehen und mit "exitSub" und ähnlichem
herumprobiert, bekomme es aber nicht hin.
Weiß jemand von euch, wie man die MsgBox nach dem ersten Klick auf "OK" dazu bringt Winterschlaf zu halten?
Das Makro:
Private Sub Worksheet_Calculate()
If Range("Z395").Value < 30 And Range("Z395").Value > 0 Then
MsgBox "Der Wert beträgt weniger als 30%" , vbCritical
End If
End Sub
Danke!
Gruß
Max