waarde in andere cel plaatsen

[Bridelance]

Ik ben op zoek naar een bepaalde manier om een waarde in een andere cel te plaatsen en dit zonder gebruik van een zelfgeschreven macro. (Dus door gebruik te maken van de standaard-functies die reeds in excel zitten).

De bedoeling is dus om bijvoorbeeld in cel B1 een formule in te geven zodat bijvoorbeeld in cel A1 een waarde wordt ingevult.



Dank bij voorbaat

 

[Ad Becude]

Bridelance,

(Dus door gebruik te maken van de standaard-functies die reeds in excel zitten).

Ik ben bang dat het niet gaat met standaard-functies.

Wil je in A1 een waarde krijgen, zul je er toch een formule in moeten zetten.
Anders ontkom je niet aan een stukje code.

 

[Bridelance]

ok, dan maar met een macro

is het eigenlijk mogelijk om een macro uit te voeren en een ALS-commando?


bijvoorbeeld iets zoals =ALS(A1="iets"; execute macro 1;"nog iets")

 

[Wigi]

Zoiets bijvoorbeeld:

Function ZetWaarde(r as Range)

    If r.Value = "iets" Then ZetWaarde = r.Value Else ZetWaarde = "niets"

End Function

Plak deze code in een nieuwe module in VBA.

Gebruik dan de functie ergens in je bestand, en wel op deze manier:

=ZetWaarde(A1)

Bijvoorbeeld kan je dit zetten in cel B1.

Wigi

 

[leofact]

Je kunt ook de formule compleet uitwerken in een bepaalde cel.
Om de uitkomst in een andere cel te krijgen doe je het volgende:
In de vba editor selecteer je het blad waar het om gaat en dan de macro Worksheet_Change.
zet daar de volgende code neer:

 sub waarde()
dim int_rij as integer
dim int_kolom as integer

int_kolom = target.column
int_rij=target.row

if int_colum =  x and int_rij = y then 
"commentaar" :x en y zijn de coördinaten van de formule cel
      cells(Y,X).value = cells(int_rij , int_kolom).value 
 "commentaar": dit zet de waarde van de formule cel in de doelcel.
end if
end sub

Elke keer wanneer de formule van waarde veranderd, wordt deze automatisch in de door jouw gewenst cel gezet.
mvg leo