ich möchte nach eingeben eines Wertes diesen zu einer anderen Zelle addieren. Folgender Code funktioniert:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 10 Then
Cells(Target.Row, 12) = Cells(Target.Row, 12) + Cells (Target.Row, 10)
End If
End Sub
Nach der Addition soll der eingegebene Wert gelöscht werden:
Cells(Target.Row, 10).ClearContents
Das funktioniert auch, allerdings erscheint dann für mehrere Sekunden eine Sanduhr (wahrscheinlich entsteht eine Schleife weil ein Zellinhalt geändert wurde, und die Sub neu gestartet wird).
Kann man das etwas eleganter (ohne Wartezeit) lösen?
Ich bin dankbar für Vorschläge.
Gruß
Matthias