Hoe plak ik een formule in excel.

Status
Niet open voor verdere reacties.

VAMEES

Gebruiker
Lid geworden
18 dec 2007
Berichten
52
Hallo ik probeer een formule in excel te plakken met behulp van een macro.
Nu weet ik dat tekst plakken met FormulaR1C1 = "tekst" gaat.
Waneer ik dit met een formule doe struikeld het programma over het tweede = teken.
Hoe kan ik dit oplossen?


Sub FormulePlakken()
Range("Z1").Select
ActiveCell.FormulaR1C1 = "Soort"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=VERT.ZOEKEN(A2;Blad2!$A$2:$B$268;2;WAAR)"
Selection.AutoFill Destination:=Range("Z2:Z268")
Range("Z2:Z268").Select
End Sub
 
ActiveCell.FormulaR1C1 = ""="VERT.ZOEKEN(A2;Blad2!$A$2:$B$268;2;WAAR)"

Dus de = tussen " " zetten

Ron
 
De macro loopt nu niet meer vast maar geeft me alleen de ONWAAR is de cellen.
Ik kan daar ook nergens meer de beoogde formule terug vinden.
 
Code:
Sub FormulePlakken()
Range("Z1").Value = "Soort"
Range("Z2").FormulaR1C1 = "=VLOOKUP(RC[-25],Blad2!R2C1:R268C1,2,TRUE)"
Range("Z2").AutoFill Destination:=Range("Z2:Z268")
Range("Z2:Z268").Select
End Sub


Zowerkt de code wel. Als je formuler1c1 in vba doet moet je het in het engels doen.
 
Laatst bewerkt:
Dankje hij doet het nu.
Moeten formules alleen met furmulaR1C1 is het engels?
Of moeten formules binnen VBA altijd in het engels?
 
Formules in het Engels ingeven, en het scheidingsteken is een komma.

Application.WorksheetFunction kan een alternatief zijn.

Wigi
 
Bedankt heren,

Application.WorksheetFunction is een alternatief voor ActiveCell.FormulaR1C1?
 
Bedankt heren,

Application.WorksheetFunction is een alternatief voor ActiveCell.FormulaR1C1?

In die zin, dat je met Application.WorksheetFunction het resultaat berekent van de formule, en dat bvb. in een cel zet. Zonder de formule dus.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan