VBA anførselstegn ved indsættelse af formel

Lav formlen i en celle. Marker cellen. Start makrobåndoptageren. Tryk F2. Tryk Enter. Stop makrobåndoptageren. Check koden.

Cells(Row, 23).Formula = "=IF(LEN(V" & CStr(ActiveCell.Row) & ")>3;""ok"";"")"

Der var vist lidt for mange til slut...
Cells(Row, 23).Formula = "=IF(LEN(V" & CStr(ActiveCell.Row) & ")>3;""ok"";)"

Hej Jan

Jeg har også haft problemet og løste det på denne måde (læg mærke til jeg ikke definerer cellen som en formelcelle):

Cells(Row, 23)= "=IF(LEN(V" & ActiveCell.Row & ")>3;"ok";"")"
Cells(Row, 23).Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True

Mvh

Richardt

Prøv med:
Cells(Row, 23).Formula = "=hvis(LEN(V" & ActiveCell.Row & ")>3,""ok"","""")"

mvh
Johs.J.

Jan. Dit problem ligger både i antallet af anførselstegn og i at du bruger semikolon istedet for kommaer. I VBA SKAL du bruge kommaer, excel skal nok selv omsætte dem til semikoloner.

Cells(Row, 2).Formula = "=IF(LEN(V" & ActiveCell.Row & ")>3,""ok"","""")"

Denne så jeg ikke lige først, men jeg ville skrive Cells(Row, 23).FormulaR1C1 = .....

Tak for svarene. Jeg har nu fået tid til at teste dem.
Johs' løsning var den første jeg kunne få til at virke.

>flemming
Den kan jeg heller ikke få til at virke.
R1C1 angiver vel kun, at man bruger tal-angivelser i stedet for bogstaver når man definerer rækkerne.

.... sorry kolonnerne