msgBox
21.10.2016 11:22:48
Silvia
ich habe folgendes Problem:
Wenn in einer bestimmten Zelle eine Zahl größer 0 steht soll eine MsgBox aufpoppen.
Folgendes habe ich geschrieben:
Sub Worksheet_Calculate()
'Formel ändern in den Zeilen 461 und 462, wenn für xxxxxx Werte vorliegen
If Worksheets("Daten ordentliche Erträge").Range("Ab388").Value > 0 Then
'If Cells(388, 30) > 0 Then
msgbox "Formel in den Zeilen 461 und 462 ändern!" & vbCrLf & "In allen Spalten D bis AA, in _
denen etwas berechnet wird muss am Ende -AD388 eingefügt werden, weil xxxxxx aus der Berechnung _
aussen vor bleiben soll.", vbOKOnly, "ACHTUNG!"
End If
End Sub
Das funktioniert auch in der vbe-Umgebung, aber nicht wenn dort raus gehe und auf dem die Zahl auf dem Tabellenblatt ändere. Was mache ich falsch?
Vielen Dank schon mal für Eure Antworten!
VG