Formule omzetten naar vaste waarde met VBA

[Mansv1966]

Hallo,

IK heb al even gekeken hier maar zag zo niet wat ik graag zocht misschien dat iemand me wil helpen.

Ik heb een kleine tabel gemaakt en wil graag dat de formule in kolom C wordt omgezet in een vaste waarde via VBA

Tabel wordt aangevuld tzt

Mansv1966

 

[edmoor]

Zo:

For Each cl In Range("Tabel1").SpecialCells(xlCellTypeFormulas)
    cl.Value = cl.Value
Next cl

 

[VenA]

Of

Sub VenA()
  Sheets("Blad1").ListObjects(1).DataBodyRange = Sheets("Blad1").ListObjects(1).DataBodyRange.Value
End Sub

 

[edmoor]

Of alleen kolom C:

Sheets("Blad1").Range("Tabel1").Columns(3).value=Range("Tabel1").Columns(3).value