Wert < xxx dann MsgBox von heute
heute
Ich hatte heute bereits das Thema und bekam auch die Lösung. Nun würde ich gerne was hinzufügen. Das habe ich: https://www.herber.de/bbs/user/4684.xls
In Spalte A (Zellen A1-A22) werden Werte eingetragen und in A24 wird die Summe aus Zelle B1-A1:A22 gebildet. Ist der Wert in A24 kleiner als 5.85, erscheint eine MsgBox. Soweit so gut! doch kann man diesen Code so erweitern, dass ich weitere Zellen aus anderen Spalten (z.B. B14:B22) in die Summenbildung in A24 einbeziehen kann und die Meldung dann auch bei unterschreiten des Wertes 5.85 erscheint?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 22 And Target.Column = 1 Then
If Range("A24").Value < 5.85 Then MsgBox "In den Prozess eingreifen", vbOKOnly, "Grenzwert unterschritten"
End If
End Sub