Formule in cel zetten met VBA

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedemiddag allen,

Zit met een vraagje over Formule in cel zetten met VBA

Had al iets gevonden hier http://www.helpmij.nl/forum/showthread.php/693919-Formule-in-cel-zetten-met-VBA maar kom er toch niet helemaal uit.

Wil met VBA een formule veranderen in een cel.

Heb er een vbtje bijgedaan.

In cel A5 moet een aangepaste formule komen.

Code: 
   .Range("A" & i).FormulaLocal = "=ALS(OF(A2 ="";A3="");"";SOM(A2:A3))"

Maar het probleem doet zich voor dat VBA geen 2 dubbele aanhalingstekens achter elkaar zet.
Heeft iemand hier ervaring mee of een idee hierover.

Al many thanks

Vr. Gr.

Dutch
 

Bijlagen

  • FormuleInCelZettenMetVBA #1.xls
    33 KB · Weergaven: 41
Is dit de bedoeling?
Code: 
 [A5].FormulaR1C1 = "=IF(R[-3]C="";"",SUM(R[-3]C:R[-2]C))"
 
Hoi Philiep,

Denk niet dat het gaat werken.

Gebruik nl. excel 2003

ff testen
 
ff getest met hetzelfde resultaat. foutmelding.

probleem zit hem in het feit dat er dubbele aanhalingstekens gebruikt worden
 
Of deze:
Code: 
.Range("A" & i).FormulaLocal = "=ALS(OF(A2 ="""";A3="""");"""";SOM(A2:A3))"
 
He Edmoor een goeie,

werkt uiteraard, enig idee hoe dit komt? is ie bijziend? :)

Thanks

Maar zit toch nog met een vraag. Eigenlijk al vanaf begin, maar ja je moet ergens beginnen.

Kan men van de cijfers variabele maken?

Dus bv:

Code: 
Private Sub Test2()

  Dim i As Integer, e As Integer, a As Integer
  i = 5
  e = 2
  a = 3
  
  With Worksheets("Blad1")
    .Range("A" & i).FormulaLocal = "=ALS(OF("A" & e ="""";"A"& a="""");"""";SOM(A2:A3))"
  End With
End Sub

Dit werkt dus niet. zie vb-tje #3
 

Bijlagen

  • FormuleInCelZettenMetVBA #2.xls
    33 KB · Weergaven: 46
  • FormuleInCelZettenMetVBA #3.xls
    31,5 KB · Weergaven: 43
Laatst bewerkt:
Als je in VBA dubbele aanhalingstekens in een string wilt zetten moeten deze tussen dubbele aanhalingstekens staan, that's it :)
 
ok thanks dus door de aanhalingstekens geeft men aan dat men aanhalingstekens wilt plaatsen :)
 
Wat je aanpassing van je vorige bericht betreft, ja, uiteraard kan dat, maar dan moet je daar in de string opbouw wel rekening mee houden.
Nu heb je die variabelen in de string staan en wordt er door VBA uiteraard niets mee gedaan.
 
Thanks ja ff doordenken :-(

Is geworden:
Code: 
Private Sub Test2()

  Dim i As Integer, e As Integer, a As Integer
  i = 5
  e = 2
  a = 3
  
  With Worksheets("Blad1")
    .Range("A" & i).FormulaLocal = "=ALS(OF(A" & e & " ="""";A" & a & " ="""");"""";SOM(A2:A3))"
  End With
End Sub

maar wilde laatste stukje aanpassen en nada :-(

Code: 
    .Range("A" & i).FormulaLocal = "=SOM(A2:A" & a)

wat is hier fout aan?
 
Laatst bewerkt:
Nou EdMoor we zijn eruit :)

de boogjes moesten dus ook tussen aanhalingstekens.. kijk je zo overheen.

Is geworden:

Code: 
Private Sub Test2()

  Dim i As Integer, e As Integer, a As Integer
  i = 5
  e = 1
  a = 3
  
  With Worksheets("Blad1")
     .Range("A" & i).FormulaLocal = "=ALS(OF(A" & e & " ="""";A" & a & " ="""");"""";SOM(A" & e & ":A" & a & "))"
  End With
End Sub

Bedankt allen voor de moeite weer.

Dit was een test vb-tje en manier waarop je dit kan gebruiken verwerken we weer in m'n file

Thanks

Vr. Gr.

Dutch
 

Bijlagen

  • FormuleInCelZettenMetVBA #4.xls
    33 KB · Weergaven: 46
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan