Formule via vba in cel zetten

[mulderm]

Hallo,

Ik wil via VBA een formule, =countA(A5:A2000), in cel A9
zetten.
Is dit mogelijk?
Ik wil namelijk bepaalde Excel-bestanden laten openen en deze
formule in cel A9 zetten om het aantal regels bij te houden..

mulderm

 

[koosl]

mulderm,

Sub Formule()
    Range("A9").Formula = "=countA(A5:A2000)"
End Sub

Koosl

 

[mulderm]

Werkt perfect Koosl, ik heb alleen een klein foutje gemaakt het moet zijn:

Sub Formule()
Range("A9").Formula = "=countA(A10:A2000)"
End Sub

Nog een vraagje,

Hoe controleer ik of deze formule bestaat in cel A9?
Ik dacht aan: msgbox range("A9").value maar dan krijg ik alleen de waarde!

mulderm

 

[koosl]

Mulderm

Sub Formule()
    If Range("A9").Formula <> "=countA(A10:A2000)" Then
        Range("A9").Formula = "=countA(A10:A2000)"
    End If
End Sub

Nu wordt gekeken of de juiste code er in staat.
Is dit niet, dan wordt die erin gezet.

Maar als je de code uit vorige post gebruikt komt die er toch altijd goed in te staan?


Of wil je die liever gewoon visueel checken met een msgbox?


Koosl

 

[koosl]

mulderm,

(ik was even weg geweest)

Zo zou je de formule kunnen uitlezen en tonen via een MsgBox

Sub FormuleInMsgBox()
    MsgBox Range("A9").Formula
End Sub

Koosl

 

[mulderm]

Dankjewel Koosl,

De bedoeling is namelijk dat ik een hoop bestanden moet langslopen om te controleren en eventueel te corrigeren of deze formule aanwezig is.
Bedankt voor deze weergaloze tips, weer wat geleerd.

mulderm

 

[koosl]

Dankjewel Koosl,

graag gedaan.


Koosl