meerdere keren dezelfde cel invullen

[johan53]

Ik wil een kasboek maken en de bedragen van 1 post in 1 cel invoeren, terwijl de som van die bedragen in een andere cel zichtbaar wordt, is dit mogelijk?
bijvoorbeeld:
in cel A1 op maandag 100 euro invoeren en in cel A1 op dinsdag 200 euro invoeren;
in cel A20 als resultaat 300 euro zien.

 

[epfangb]

Ik heb het als volgt opgelost:

Range("A1").Activate
If ActiveCell <> "" Then
ActiveCell.Value = ActiveCell.Formula & "+" & bedrag
Else
ActiveCell.Formula = "=" & bedrag
End If

Het kan mooier. Want als ik in de bewerkte cellen kijk dan zie ik bijv.:
=-5.77+-34.99

Dus je kan nog extra voorwaarden toevoegen zoals testen of het bedrag positief of negatief is.

 

[johan53]

Ik heb het als volgt opgelost:

Range("A1").Activate
If ActiveCell <> "" Then
ActiveCell.Value = ActiveCell.Formula & "+" & bedrag
Else
ActiveCell.Formula = "=" & bedrag
End If

Het kan mooier. Want als ik in de bewerkte cellen kijk dan zie ik bijv.:
=-5.77+-34.99

Dus je kan nog extra voorwaarden toevoegen zoals testen of het bedrag positief of negatief is.

 

[johan53]

Ik heb het als volgt opgelost:

Range("A1").Activate
If ActiveCell <> "" Then
ActiveCell.Value = ActiveCell.Formula & "+" & bedrag
Else
ActiveCell.Formula = "=" & bedrag
End If

Het kan mooier. Want als ik in de bewerkte cellen kijk dan zie ik bijv.:
=-5.77+-34.99

Dus je kan nog extra voorwaarden toevoegen zoals testen of het bedrag positief of negatief is.

Bedankt voor je reactie:
In welke cellen moet ik deze formules nu plaatsen?
Zoals ik in het voorbeeld liet zien:
Invoeren in A1 en uitlezen in A3
Ik ben met het maken en plaatsen van macro's niet op de hoogte.