Werte überwachen
Jakob
ich möchte die Zellen P5:P35 überwachen. Sobald der Wert in einer dieser Zellen den Wert von übersteigt soll eine msgbox aufpoppen mit einer Warnmeldung.
Dafür habe ich folgendes Makro auf meine Bedürfnisse angepasst:
Private Sub Worksheet_Calculate()
Dim Bereich As Range
Set Bereich = Range("P5:P35")
If Range(Bereich).Value > 0.458333333333333 Then
MsgBox "ACHTUNG - Du bist drüber!"
End If
End Sub
Bei einer einzelnen Zelle (z. Bsp. Range("P5) ) funktioniert es. Sobald ich aber einen Bereich eingeben will bekomme ich einen Laufzeitfehler mit der folgenden Meldung:
Die Methode "Range" für das Objekt "_Worksheet" ist fehlgeschlagen
Wie müßte es richtig heißen?Vielen Dank.
Gruß,
Jakob Freitag