formule doorvoeren in tabel

[AD1957]

Beste forumleden,

In bijgevoegd bestand wordt de tabel aangevuld met userform nieuwe klant.
Het lukt me echter niet om in kolom 9 de formule door te voeren in de nieuwe rij.

dit stukje code geeft een foutmelding, kom er zelf niet achter hoe dit op te lossen.

Range("I4").Select
    Selection.AutoFill Destination:=Sheets("Blad1").ListObjects("tabel1").ListColumns(9).Range, Type:=xlFillDefault

 

[VenA]

Gewoon de formule direct wegschrijven.

With Sheets("Blad1").ListObjects(1)
    .ListRows.Add.Range.Resize(, 11) = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, _
    TextBox5.Value, TextBox6.Value, TextBox7.Value, TextBox8.Value, _
    "=IF(AND(RC[-2]<TODAY()-700,RC[-1]="""",RC[-2]<>""""),RC[-2]+730,IF(AND(RC[-1]<TODAY()-335,RC[-1]>RC[-2]),RC[-1]+365,""""))", TextBox9.Value, TextBox10.Value)
End With

 

[AD1957]

Hallo VenA,
Daar had ik nou niet aan gedacht.
Bedankt voor de oplossing:thumb: