Wert in einer anderen Zelle aufaddieren

Frage: Numerische Eingaben in Zelle B12 sollen in Zelle D7 aufaddiert werden. Wie geht das?

Code gehört in den Codebereich des entsprechenden Tabellenblattes (rechte Maustaste auf den Tabellenreiter und dann "Code anzeigen" anklicken).

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$12" And Target.Value <> "" Then
        If IsNumeric(Target.Value) Then
            Range("D7").Value = Range("D7").Value + Target.Value
        End If
    End If
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...