Cellen sturen / Overschrijven

[Wocky]

Beste,

Is het mogelijk om bepaalde cellen te laten invullen, zonder dat er een formule in desbetreffende cel staat?

In bijlage een voorbeeld.

Ik wil dus in cel "E5" een "0" in laten vullen, als er in cel "A5" een "a" ingevuld wordt, zonder dat er een formule staat in cel "E5".

Is dit mogelijk.

Mvg,
Wocky.

 

[VenA]

In de bladmodule bv

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E5")) Is Nothing Then
    If Target = 0 Then Target.Offset(, -4) = "a"
End If
End Sub

Of het omgekeerde omdat de vraag en het voorbeeldje niet echt helder zijn voor mij

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
    If Target = "a" Then Target.Offset(, 4) = 0
End If
End Sub

 

[Wocky]

Beste,

Ik ken helaas geen VBA.
Ik zou het ook graag zo eenvoudig mogelijk willen houden.

Mijn bedoeling is dus:
Als ik zelf, in cel A5 een "a" invul, dan wil ik dat er in cel E5 een "0" komt te staan.
En ik wil dit laten gebeuren zonder dat er in cel E5 een formule staat.

(Want anders kan ik even goed in cel E5 volgende formule typen: =ALS(A5="a';0) )
Ik wil dus niets in cel E5 typen, maar daar toch een "0" in laten verschijnen.

Alvast bedankt!
Wocky.

 

[popipipo]

Waarom wil je geen formule in E5?

Geen formule in E5 en ook geen VBA gebruiken bestaat niet.
Het is of het een of het ander.

 

[VenA]

Je wil geen VBA en geen formule? Hoe moet E5 dan een waarde krijgen?

Waarom mag er geen formule in E5 staan? Zal dan wel de meest logische vraag zijn.

Edit en deze is dan ook door popipipo gesteld:d

 

[Wocky]

Beste,

Ik wil geen formule in cel E5 omdat ik daar eerst zelf een (andere) waarde in wil geven (handmatig). Deze waarde wil ik dan laten overschrijving als ik in cel A5 een "a" in vul.
Maar als het niet mogelijk is, is het niet mogelijk. Simple as that.

Toch alvast bedankt voor de moeite!

Groeten.
Wocky.

 

[VenA]

Wil je dan nog wel even zo vriendelijk zijn om de vraag op opgelost te zetten?

 

[edmoor]

In plaats van de waarde in E5 in te tikken kan je dit in E5 intikken: =ALS(A5="a";0;"Eigen waarde")
Maar zonder formule EN zonder VBA is het inderdaad niet mogelijk.

 

[Gerard2348]

Met de code van VenA in blad1

Bekijk bijlage Map1a.xlsm

 

[Wocky]

Allen,

Bedankt voor de reactie.

Mijn oorspronkelijke vraag is opgelost, maar ivm VBA.

Kan iemand mij kort even uitleggen hoe ik bovenstaande code (van VenA) gebruik?
Ik ben al zover gekomen als te zien op print screen in bijlage.

Heb de code in een module geplakt. Maar... ik ken geen jota van VBA (heb ooit in een heel lang verleden wel eens wat basis gezien).
Als iemand me even verteld hoe ik deze code nu laat werken?

Alvast bedankt.
Wocky

 

[edmoor]

Zoals je dat hebt gedaan is goed. Nu hoef je alleen maar in het werkblad cel E5 te wijzigen om te zien wat er gebeurt. Door die wijziging wordt de routine actief.
Sla wel je document op als document met macro's (.xlsm)

 

[Wocky]

Edmoor,

Heb net geprobeerd.
Als ik de code in de module plak, werkt ze niet.

Maar als ik ze in "blad1" plak werkt ze wel.

Doe ik iets verkeerd omdat ze niet in die module werkt?
Of dien ik die module dan ergens te activeren?

Wocky.

 

[edmoor]

Het is een event routine voor het werkblad. Die moet niet in een module maar achter het werkblad.

 

[Wocky]

Ok bedankt.

Wocky.