Formule in een cel laten plaatsen

[caffie]

Wat wil ik

ik sta ergens in me werkblad
afhankelijk daarvan wil ik de formule in een cel aanpassen

dus in cel 3,K moet de formule komen

subtotaal (9; K6 ; active regel)
ik heb het volgende bedacht
Dit werk 1/2 wat hij zet het nu neer als tekst en niet als formmule
als ik "=" voor de som zet draait de gehel macro niet meer

Wat doe ik fout ???



Sub test()

Dim regelnummer As Integer

regelnummer = ActiveCell.Row
Cells(3, "K").Formula = "Som(9;K6:" & regelnummer & ")"

End Sub

 

[Roncancio]

Wat wil ik

ik sta ergens in me werkblad
afhankelijk daarvan wil ik de formule in een cel aanpassen

dus in cel 3,K moet de formule komen

subtotaal (9; K6 ; active regel)
ik heb het volgende bedacht
Dit werk 1/2 wat hij zet het nu neer als tekst en niet als formmule
als ik "=" voor de som zet draait de gehel macro niet meer

Wat doe ik fout ???



Sub test()

Dim regelnummer As Integer

regelnummer = ActiveCell.Row
Cells(3, "K").Formula = "Som(9;K6:" & regelnummer & ")"

End Sub

3 dingen:
1. Je moet een = teken voor de formule zetten.
2. Waarom gebruik je Som als je het heeft over Subtotaal.
3. In VBA moet je de Engelse versie gebruiken dus , ipv ;
4. Je gebruikt K6: Je moet nogmaals de kolom vermelden dus K6:K.


Sub test()

Dim regelnummer As Integer

regelnummer = ActiveCell.Row
Cells(3, "K").Formula = "[B][COLOR="Red"]=Subtotal[/COLOR][/B](9[COLOR="Red"][B],[/B][/COLOR]K6:[COLOR="Red"][B]K[/B][/COLOR]" & regelnummer & ")"

End Sub

De 4 punten zijn in vet en in het rood vermeld.

Met vriendelijke groet,


Roncancio