Optellen

[wally1968]

Bekijk bijlage Voor ET.xlsx

Wie kan mij helpen.

Als ik in cel A2 de waarde 0 intik, dan moet in cel A2 de helft van cel A1 komen te staan, ook afgerond naar beneden (dus een geheel getal)
Als ik in cel A2 een waarde boven 0 intik, dan moet in cel A2 de optelsom van de cellen A1 en A2 komen te staan.

 

[alphamax]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Application.EnableEvents = False
        If Range("A2").Value <> 0 Then
            Range("A2").Value = Range("A1").Value + Range("A2").Value
        Else
            Range("A2").Value = Int(Range("A1").Value / 2)
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[wally1968]

Ok dit is een macro denk ik. bedankt ervoor maar kan dit niet met een formule, want dat moet met meerdere cellen kunnen gebeuren en als
het kan gebruik ik het liefst zo weinig mogelijk macro's

 

[alphamax]

je kan niet in 1 cel een waarde invullen en een formule hebben
of je werkt met een hulpcel of je werkt met een macro

 

[wally1968]

Ok met een hulpcel dan, geen probleem.
welke formule gebruik ik daarvoor

 

[alphamax]

in A3

=ALS(A2<>0;A1+A2;AFRONDEN.BENEDEN(A1/2;1))

vul in A2, 0 of een andere waarde in

 

[wally1968]

Het zal dan toch met die macro worden, maar hoe krijg ik het klaar als cel A1 leeg is dan moet A2 ook leeg worden gemaakt.
Als ik het gewoon doe komt daar een nul te staan. Nu weet ik dat ik de nulwaarde kan uitvinken bij opties maar dat wil ik niet het is een voor een spel en de score tijdens
dat spel kan op 0 komen. Bij een nieuw spel moeten de cellen leeg komen.

 

[alphamax]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Range("A1").Value = "" Then
            Range("A2").Value = ""
        End If
    End If
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        If Range("A2").Value <> 0 Then
            Range("A2").Value = Range("A1").Value + Range("A2").Value
        Else
            Range("A2").Value = Int(Range("A1").Value / 2)
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[wally1968]

Dit lukt perfect.
Bedankt