formule plakken via macro

[ppms]

Hallo,

Ik wil graag deze formule plakken in cel D6 als dit nodig is, maar dit wil niet lukken en ik kom er niet achter hoe het dan wel moet.

Sub plakken()
    Sheets("ronde 1").Select
        Sheets("ronde 1").[D6] = ALS(C6=0;"";INDEX(drie;AANTALARG(drie);1;1))
    ActiveWorkbook.Save
End Sub

Groet PPMS

 

[Warme bakkertje]

Sub plakken()
    ['Ronde 1'!D6] = "=IF(RC[-1]=0,"""",INDEX(drie,COUNTA(drie),1,1))"
    ActiveWorkbook.Save
End Sub

 

[richard1970]

Beste PPMS,

Je maakt een paar denkfouten. VBA is engelstalig, dus moet je werken met , in plaats van ; als scheidingstekens voor de argumenten.
De beste werkwijze als je begint met VBA, is via de macrorecorder: Extra > Marco > Nieuwe macro opnemen. Je voert je handelingen uit, klikt op stop opnemen, en via Alt+F11 ga ja naar VBA.
Wat in jouw geval wel werkt is de volgende code:

Sub plakken()
    Sheets("ronde 1").Select
        Range("D6").Formula = "=if(c6=0,"""",INDEX(drie,counta(drie),1,1))"
    ActiveWorkbook.Save
End Sub

Ik heb overigens wel een bereik de naam "drie" meegegeven, anders klopt je code niet en krijg je de foutmelding #/NAAM?

Groeten,
Richard

Rudi was sneller

 

[ppms]

Hallo Warm Bakkertje,

Vriendelijk bedankt voor de oplossing werkt perfect, wel heel anders als dat ik dacht.

Ik ga er nog een paar maken met je macro en als dat gelukt zet ik deze op opgelost.

Groet PPMS

 

[ppms]

Richard1970,

Zag je reactie telaat maar jij natuurlijk ook bedankt.

Groet PPMS

 

[ppms]

Richard1970 en Warm Bakkertje,

Ik ben er helemaal uitgekomen dank zij jullie en zet de vraag op opgelost.

Vriendelijk bedankt voor jullie hulp.

Groet PPMS