18.07.2012

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

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...