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
Mein Anliegen: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