Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eintragungen Wert des Eintrags plus Vorgangswert anzeigen

Gruppe

Change

Problem

Wie kann ich mir bei Eingaben in Spalte A den aktuellen Wert plus dem vorher in der Zelle befindlichen Wert anzeigen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not IsNumeric(Target) Or IsEmpty(Target) Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  Dim dValue As Double, dPlus As Double
  Application.EnableEvents = False
  On Error GoTo ERRORHANDLER
  dPlus = Target.Value
  Application.Undo
  dValue = dPlus + Target.Value
  Target.Value = dPlus
  MsgBox "Gesamtwert: " & dValue
ERRORHANDLER:
  Application.EnableEvents = True
End Sub