VBA-error 1004

[inomart]

Hoi

Ik heb een Access-database die met behulp van VBA-code een Excel-file genereert. Voor de een of andere reden krijg ik een foutmelding op onderstaande code

oSheet.range(Chr(intChar) & intTeller).formula = "=IF(I" & intTeller & "="""";"""";TREND(I" & intTeller & ":L" & intTeller & ";I$1:L$1;M$1))"

De error is: Run-time error '1004': Application-defined or object-defined error

Als ik het gelijkheidteken voor IF wegdoe, dan loopt de code wel perfect. Maar als ik dan in de XLSX-file ga kijken, dan staat die code daar uiteraard als "text" ipv "formule" omdat het gelijkheidsteken er niet staat.

De code geeft dezelfde melding met
oSheet.range(M2).formula = "=TREND(I2:L2;I1:L1;M1)"

De puntkomma aanpassen naar een gewone komma lost het probleem ook niet op.

Als ik in Excel de macro opneem, dan kan ik het laten werken met onderstaande code. Uiteraard werkt dat enkel maar voor de rij die je hebt geselecteerd, dus dit is geen oplossing.
oSheet.range(Chr(intChar) & intTeller).FormulaR1C1 = "=TREND(RC[-4]:RC[-1],R[-1]C[-4]:R[-1]C[-1],R[-1]C)"

Iemand een idee?

Mvg
Ino

 

[E v R]

Op het eerste gezicht: Pas de ; toch aan de , aan
daarnaast zit er een andere fout in de 2e Range aanroep M2 versus "M2"

 

[inomart]

Ik heb het kunnen oplossen met

oSheet.range(Chr(intChar) & intTeller).Value = "=if(L" & intTeller & "="""","""",TREND(I" & intTeller & ":L" & intTeller & ",I1:L1,M1))"