celwaarde onder voorwaarden op 0

[wally1968]

Hoi,

In bijlage vind je mijn bestand en de hele vraag staat er ook in
Het is de bedoeling dat een cel automatisch op 0 komt na een bepaalde voorwaarde

Ik hoop (zoals gewoonlijk) dat jullie mij weer kunnen helpen

 

[wally1968]

Kan dit niet met VBA

 

[Haije]

wijzig de formule in Bi eens in

=MAX(0;101-SOM(B2:B10))

 

[AlexCEL]

Haije, zoals ik het lees moet de waarde in A3 op nul komen... nadat je in A3 eerst 460 hebt getypt. Dit omdat B1 kleiner wordt dan 0.

 

[wally1968]

Hoi AlexCEL,

Je hebt gelijk, nadat je eerst 460 hebt ingetypt hebt in cel A3 moet deze op 0 komen omdat dan de waarde in cel in B1 kleiner wordt dan 0

 

[AD1957]

Zo ? voor A2t/m A10

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    If Range("B1") < 0 Then Target = ""     [COLOR="#008000"]'of target=0[/COLOR]
End If

End Sub

 

[wally1968]

Hoi AD1957,

Bedankt met de juiste oplossing

Ik heb alleen in de code Then Target = "" aangepast naar Then Target = 0 en dan klopt het helemaal