Opgelost cel met 1 vermeerderen na invullen van andere cel

[wally1968]

Hoi Allemaal,

Ik hoop dat jullie mij kunnen helpen.
hoe kan ik, telkens ik in cel A1 (dat in het voorbeeld leeg is), een tekst of woord invul, dat dan de waarde van cel C1 met 1 vermeerderd wordt. Als ik cel A1 terug leeg maak dan moet de nieuwe waarde blijven staan, of dat ik een andere tekst of woord invul, moet de waarde nogmaals met 1 vermeerderd worden
Dank u bij voorbaat

 

[wally1968]

Kan dit zonder Macro AUB

 

[HSV]

Dat kan helaas niet zonder macro.

 

[Warme bakkertje]

Aan jou of je wil gebruiken of niet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Address = "$A$1") * (Target <> vbNullString) Then
        Target.Offset(, 2) = Target.Offset(, 2) + 1
    End If
End Sub

 

[wally1968]

Bedankt voor jullie snelle reacties.
Dan zal het maar met macro's moeten.