|
Genau: Alt+F11 öffnet das VBA-Editor-Fenster. Hier in der Liste links VBAProject aufklicken und auf dem gewünschten Tabellenblatt einen Rechtsklick machen, dann "Code anzeigen" wählen. Den Code dort einfügen.
Wenn es ab H7/E7 funktionieren soll, muss der Wert für die Zeile auf "größer als 6" gesetzt werden, also
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Cells.Count = 1 Then
If Target.Row > 6 And Target.Column = 8 And IsNumeric(Target.Value) Then
Range("E" & Target.Row).Value = Range("E" & Target.Row).Value - Target.Value
End If
End If
End Sub
Worksheet_Change wird ausgelöst, wenn auf dem Arbeitsblatt etwas geändert wurde. Target ist die Zelle, in der etwas geändert wurde. Target.Row > 6 besagt, dass der folgende Code nur ausgeführt wird, wenn die Zeilennummer höher als 6 ist (also ab Zeile 7). Target.Column = 8 ist die achte Spalte, also H und IsNumeric(Target.Value) prüft, ob die Eingabe eine Zahl ist. Wenn ich einen Buchstaben eingeben würde, käme es sonst zu einem Fehler, weil man einen Buchstaben nicht von einer Zahl substrahieren kann.
|