Fout #NAAM?

[ikdoeweleenswat]

Ik heb in A1 een datum staan.
In een macro schrijf ik Range("B1").FormulaR1C1="=JAAR(RC[-1])"
In B1 komt nu #NAAM? te staan
Als ik op B1 klik verschijnt in de formulebalk =JAAR(A1)
Als ik F2 en Enter gebruik krijg ik daarna wel het juiste getal.
Wat is er mis?
Hoe kan ik dit in de macro direct goed krijgen?

 

[rebmog]

Gebruik:
Range("B1").FormulaR1C1Local="=JAAR(RC[-1])"
of
Range("B1").FormulaR1C1="=YEAR(RC[-1])"
of
Range("B1").Formula="=YEAR(A1)"
of
Range("B1").FormulaLocal="=JAAR(A1)"

 

[snb]

of

Range("B1")="=YEAR(A1)"

 

[ikdoeweleenswat]

of

Range("B1")="=YEAR(A1)"

Ik heb een macro nodig die relatieve adressen gebruikt. Deze formule werkt dus niet.

 

[ikdoeweleenswat]

Gebruik:
Range("B1").FormulaR1C1Local="=JAAR(RC[-1])"
of
Range("B1").FormulaR1C1="=YEAR(RC[-1])"
of
Range("B1").Formula="=YEAR(A1)"
of
Range("B1").FormulaLocal="=JAAR(A1)"

Bedankt! Tot nog toe had ik alleen met de Engelse versie van Excel gewerkt. Vandaar dat ik het attribute FormulaR1C1Local nog niet kende. Weer wat geleerd.

 

[snb]

Ik heb een macro nodig die relatieve adressen gebruikt. Deze formule werkt dus niet.

Ik denk dat je je daarin vergist.

 

[ikdoeweleenswat]

Ik denk dat je je daarin vergist.

Ik denk van niet.
Mijn macro gaat uit van de geselecteerde positie. Als dit een multiple selectie is, dan de cell links boven. Hier moet een datum staan (wordt hier niet gecontroleerd):

 r = Selection.Row
 c = Selection.Column

Maak twee extra kolommen en plaats een formule in het eerste nieuwe veld:

 Cells(r,c+1).EntireColumn.Insert
 Cells(r,c+1).EntireColumn.Insert
 Cells(r,c+1).NumberFormat = ""
 Cells(r,c+1).FormulaR1C1Local="=JAAR(RC[-1])"

En dan de rest van de macro ...
Doe dat maar eens zonder relatieve adressering!

 

[snb]

Gebruik svp codetags !