waarde in andere cel

[thst]

Hai allemaal,

Ik heb een vraagje:

Is het ook mogelijk om een waarde in een cel te krijgen zonder dat daar een formule in staat ?

Angela

 

[popipipo]

Hier het antwoord in gelijke strekking als je vraag:
nl kort en onvolledig:

JA

Met ander woorden een klein xls bestandje met wat meer uitleg zal ook een beter antwoord tot gevolg hebben.

 

[thst]

ik heb in a1 een formule =som(b1:b4) nu wil ik in A2 de uitkomst
Angela

 

[trucker10]

Bij deze
of deze

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [A2].Value = [B1] + [B2] + [B3] + [B4]
End Sub

 

[thst]

Beste Trucker,

De uitkomst zet je handmatig in B2 ??

dat is niet de bedoeling
nee toch niet, maar hoe heb je dat gedaan ?

 

[thst]

kan de code ook een formule zijn i.p.v. vba

Angela

 

[popipipo]

Is het ook mogelijk om een waarde in een cel te krijgen zonder dat daar een formule in staat ?

kan de code ook een formule zijn i.p.v. vba

Wat wil je nu, je speek je zelf nu behoorlijk tegen.

Geef eens een duidelijke uitleg van waarom je dit nu wilt.
Plaat je originele bestand zonder gevoelige informatie eens.

 

[trucker10]

Met deze

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A2").FormulaR1C1 = "=SUM(R[-1]C[1]:R[2]C[1])"
End Sub

 

[thst]

in cel b2 staat een formule en het antwoordt wil ik in cel a1,
en als het kan niet in vba

Angela

 

[trucker10]

in cel A1 zet je dan een formule ALS(B2="";.........

=ALS(B2>0,000001;B2;"")

 

[thst]

in cel b2 staat een formule en het antwoordt wil ik in cel a1, in cel a1 geen formule zie #1
en als het kan niet in vba

Angela

 

[trucker10]

Angela dan maar met een voorbeeldje
Je kan geen brood bakken als je geen meel of water hebt , je MOET een formule hebben in A1 of het moet via VBA daar kunnen we niet onderuit of je moet microsoft aanschrijven dat ze deze optie inbouwen.
Ben ik verkeerd dan mogen de andere helpers me zeker tegenspreken

 

[thst]

Beste trucker10,

oke bedankt voor je hulp, het orginele bestand kan ik je niet sturen omdat daar mijn komplete administratie in staat van mijn bedrijf, met heel veel gevoelige informatie.

Angela

 

[trucker10]

Angela , je zou dit aan je change event macro kunnen toevoegen ( tussen voegen ) dan wel met de juiste formule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [COLOR="navy"]Range("A2").FormulaR1C1 = "=SUM(R[-1]C[1]:R[2]C[1])"[/COLOR]End Sub.

 

[HSV]

Of:

[A2].Value = [A1].Value

 

[trucker10]

Of:

[A2].Value = [A1].Value

Harry , hebde hij in mijn bestandje gekeken in post #4 ik had dat in het bestandje staan . Als thst het toch wil zit er volgens mij maar 1ding op en dat is de range("A2").Formula............ tussen de change event bijvoegen .

 

[HSV]

Da’s ook mooi.

Nee, ik heb er niet ingekeken.
Alleen posts gelezen.

Excuseer me Daniël.