Wert in Spalte größer 0 dann Makro und MsgBox
02.04.2007 15:09:02
Peter
ich habe folgendes Problem.
In Zellen der Spalte BY stehen Formeln.
Die Formel kann 0 oder 1 ausgeben.
Wenn in einer der Zellen 1 ausgegeben wird soll eine MsgBox erscheinen.
Ich habe folgenden Code in das betreffende Tabellenblatt , es funktioniert aber nicht.
Private Sub Worksheet_Activate()
SpeedUp (True)
Dim c As Range
For Each c In Range("BY:BY")
If c.Value > 0 Then
MsgBox "Mehrwertsteuer?"
End If
Next c
SpeedUp (False)
End Sub
Kann mir jemand helfen?
Danke
Grüße aus Berlin
Anzeige