Makro nach Wert in Zelle, Msgbox, richtiger Eintr
03.04.2007 10:36:04
Peter
folgender Code funktioniert so weit.
Meine Ansprüche haben sich jedoch erweitert.
Folgendes soll noch eingebaut werden und ich weiß nicht wie.
Code:
Private Sub Worksheet_Calculate()
SpeedUp (True)
Dim c As Range
For Each c In Range("BY:BY")
If c.Value > 0 Then
MsgBox "Tragen Sie 0 für keine MwSt oder die Mehrwertsteuer ein!"
End If
Next c
SpeedUp (False)
End Sub
Nachdem die MsgBox erscheint soll wie bei Gültigkeit der Curser auf die Zelle in Spalte AF in der Zeile in der in der Spalte BY eine Zahl größer 0 ausgegeben wurde springen. Es muß eine Zahl kleiner 0 oder 0 eingegeben werden (keine anderen Werte erlaubt).
Danke im Voraus
Grüße aus Berlin