Formule invoegen

[rikik]

Hey Hey allen,

Een vraagje:

Is het mogelijk om een ALS formule in te voegen in een kolom.
Waarbij, indien de waarde WAAR is, de formule wordt gebruikt, maar als de waarde ONWAAR is, de gegevens van dezelfde kolom gebruikt worden.

Bijvoorbeeld

A B
10 2 (formule in kolom B +ALS(A1<10; A1 ; B1)

Maar deze formule zou ik willen ingeven in B1, waarbij we als antwoord voor bovenstaande dus 2 zouden krijgen.

Ik weet dat dit met bovenstaande niet gaat, maar is dit op andere wijze wel mogelijk?

Rikik

 

[AlexCEL]

Er kan niet EN een formule EN een waarde tegelijk in een cel staan. Wat wel kan is bijvoorbeeld dit:

=ALS(A1<10;A1;2)

Is de waarde 2 ergens op gebaseerd?

 

[rikik]

Hey AlexCell,

Dankje voor je snelle reactie.
In dit geval is B1 gelijk aan 2.

Maar is het niet mogelijk om de waarde van B1 over te nemen?

 

[rikik]

Maw, als de formule geldt, zou deze toegepast moeten worden.
Geldt deze niet, dan zou er niets moeten gebeuren.

 

[Cobbe]

Er kan niet EN een formule EN een waarde tegelijk in een cel staan

17.179.869.184 cellen zijn er voorhanden in XL2007 en jij wil alles in één enkele cel stoppen?

 

[AlexCEL]

Maar is het niet mogelijk om de waarde van B1 over te nemen?

Jawel, maar niet in cel B1 dus...

Verder: wat Cobbe zegt.

 

[rikik]

zie voorbeeld

 

[Cobbe]

Zo dan?

 

[rikik]

Neen, als de formule voldaan wordt, wordt er gebruik van gemaakt.
Zoniet, blijft deze de waarde van de cel behouden.

 

[AlexCEL]

Nogmaals: er kan niet EN een formule EN een waarde tegelijk in een cel staan.

Anders komen we in VBA-gebied en moet er geprogrammeerd worden.

 

[Cobbe]

En dat gebeurt nu niet?
Als A8>10 dan 0 anders 10

 

[rikik]

Neen, want je voegt gewoon een kolom toe.

Misschien vertel ik het niet duidelijk.

Als de formule geldt, maakt deze gebruik van de formule, zoniet wordt de waarde van de oorspronkelijke cel gebruikt.

Dus als A1>10 dan wordt A1 gebruikt, zoniet blijft gewoon de waarde B1 gebruikt worden.

 

[AlexCEL]

Je beschrijft het meerdere malen op dezelfde manier heel duidelijk.

Misschien schrijf ik mijn antwoord niet duidelijk, dus hierbij nogmaals: dit kan NIET zonder gebruik van hulpkolom of VBA.

 

[Cobbe]

Goed gezegd! Hij lijkt mij dur de comprenure.

 

[VenA]

Met VBA

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 2 Then Exit Sub
  Application.EnableEvents = False
  Target.Value = IIf(Target.Offset(, -1) > 10, 0, Target.Value)
  Application.EnableEvents = True
End Sub