Gruppe
Ereignis
Problem
Wenn die Summe der Werte im Eingabe-Spaltenbereich von Zelle 9 bis Zelle 22 den Wert von 7,5 überschreitet, soll eine Meldung ausgegeben werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 4 Or Target.Column > 34 Then Exit Sub
If Target.Row < 9 Or Target.Row > 22 Then Exit Sub
If WorksheetFunction.Sum(Range(Cells(9, Target.Column), _
Cells(22, Target.Column))) > 7.5 Then
Beep
MsgBox "Vorsicht, der Wert von 7,5 wurde überschritten!"
End If
End Sub