[VBA/Excel] Formule aan een cel toewijzen

[hamsteg]

Ik zit hier al een paar uur op te turen maar krijg het niet plat.

code:

'A3 = 3
'A4 = 4
Function funcWaaromGaatDitFout()
  ' Doet het wel (alleen als met "=" begonnen wordt)
  ' B3:A3/A4
  ' ------------------------------------------------------
  Range("B3").Select
  Selection.Value = "=" + Selection.Offset(0, -1).Address & _
                    "/" & _
                    Selection.Offset(1, -1).Address
  
  ' Doet het niet (met een '=' zoals boven: error 1004.
  ' B4:if(A4>A3;0;1)
  ' -------------------------------------------------------
  Range("B4").Select
  Selection.Value = "+" & "if(" + Selection.Offset(0, -1).Address & _
                    ">" & _
                    Selection.Offset(-1, -1).Address & _
                    ";0;1)"
End Function

Ik krijg de tweede toewijzing wel als string maar niet als formule in de cel. Het zal wel simpel zijn maar ik zie het niet.

Beginnen met de "+ïf" levert een string op die bij F2 + Enter evalueert tot functie. Dit moet onmiddellijk als functie worden ge-intepreteerd.
Geen plus direct beginnen de "if", levert een string op die alleen als ik F2 edit en er een + voor zet evalueert tot een functie.
Beginnen met een = levert een Run-time error 1004: Application defined or Object defined error op.

Waar gaan mijn twee hersencellen de fout in?

[TeeDee]

Selection.Formula?

[urk_forever]

^^^^ met hem. Selection.Formula = "=IF(bla;0;1)"

[hamsteg]

hamsteg schreef op dinsdag 28 augustus 2007 @ 12:11:
[...]
Nee, verandert niets. Ook hier de =, + en direct met if opties geprobeerd.

TeeDee schreef op dinsdag 28 augustus 2007 @ 12:06:
Selection.Formula?

Nee, verandert niets. Ook hier de =, + en direct met if opties geprobeerd.

code:

  Selection.Formula = "=" & "IF(" + Selection.Offset(0, -1).Address & _
                    ">" & _
                    Selection.Offset(-1, -1).Address & _
                    ";0;1)"

Error 1004

[ Voor 50% gewijzigd door hamsteg op 28-08-2007 12:13 ]

[whoami]

-> OFF

[urk_forever]

Ah, ik herinner het me net weer, had hetzelfde een paar weken geleden. Je moet als je formules in code maakt geen ; gebruiken maar een ,

Dus

Visual Basic:

Selection.Formula = "=IF(" + Selection.Offset(0, -1).Address & _
                    ">" & _
                    Selection.Offset(-1, -1).Address & _
                    ",0,1)"

zou moeten werken.

[hamsteg]

urk_forever schreef op dinsdag 28 augustus 2007 @ 12:20:
Ah, ik herinner het me net weer, had hetzelfde een paar weken geleden. Je moet als je formules in code maakt geen ; gebruiken maar een ,

Dus

Visual Basic:

Selection.Formula = "=IF(" + Selection.Offset(0, -1).Address & _
                    ">" & _
                    Selection.Offset(-1, -1).Address & _
                    ",0,1)"

zou moeten werken.

En dat doet het. Ships ... vaag gaat nu ergens een belletje rinkelen. Deze functie wordt als initiële VBA opgeslagen ... niet met het Excel sausje.

THANX !

Edit: @Lustucru, dat is de echte oplossing.

[ Voor 4% gewijzigd door hamsteg op 28-08-2007 12:47 ]

[Lustucru]

'VBA trekt zich standaard niks aan van locale instellingen. Die ';' is dus fout: de standaard argumentseparator = ",".

Of andersom: gebruik formulalocal

edit:
traag

[ Voor 5% gewijzigd door Lustucru op 28-08-2007 12:28 ]

[Bolukan]

Type de formule eens in cel B3, laat de cursor daar staan en type dan de eerste regel van onderstaande in het 'direct'-scherm van VB:

Visual Basic:

print selection.formular1c1

Je krijgt dan:

Visual Basic:

=IF(RC[-1]>R[1]C[-1],0,1)

Vind ik beter mee te werken dan de address-es die je gebruikt.