Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anpassung des Lagerbestands bei Ein- und Ausgang

Gruppe

Change

Problem

Bei Eingaben in die Spalten C:D soll sich der Lagerbestand in Spalte E anpassen.

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 <> 3 And Target.Column <> 4 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   If Target.Column = 3 Then
      Cells(Target.Row, 5).Value = Cells(Target.Row, 5).Value + Target.Value
   Else
      Cells(Target.Row, 5).Value = Cells(Target.Row, 5).Value - Target.Value
   End If
End Sub