VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Meldung bei Überschreitung einer Spaltensumme

Gruppe

Ereignis

Bereich

Change

Thema

Meldung bei Überschreitung einer Spaltensumme

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.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change