Plaats uitkomst formule in cel X

[isitmeor]

ik wil graag een macro knop (of een vba) maken die de uitkomst van het verschil van de cellen C12 en D12 in Cel C19 plaatst.
Dat zou kunnen dmw van =D12-C12 in cel 19 te plaatsen maar als ik dan de range, waar c19 invalt, clear is ook de formule weg.

ter verduidelijking:
cell C12 is de aankomst datum
cell D12 is de vertrek datum
in cell c19 komt dan het aantal dagen te staan

bvd

 

[edmoor]

Deze achter het betreffende werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("D12") - Range("C12") > 0 Then
        Range("D19") = Range("D12") - Range("C12")
    End If
    Application.EnableEvents = True
End Sub

 

[Cobbe]

Heb je dit nodig voor een enkele cel of voor een hele kolom?

Plaats eens een bestandje.

 

[isitmeor]

bij deze

Bekijk bijlage Facttool_rev13.xlsm

 

[Cobbe]

Die formule wordt niet gewist omdat er geen formule in die cel staat, deze wordt geregeld door een code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("depdate") - Range("ardate") > 0 Then
        Range("days_stay") = Range("depdate") - Range("ardate")
    End If
    Application.EnableEvents = True
End Sub

waarin
ARDATE = aankmostdatum D11
DEPDATE = vertrekdatum D12
DAYS_STAY = aantal dagen verschil D19

 

[edmoor]

Zie #2

 

[isitmeor]

Zie #2

werkt prima hartelijk dank daarvoor

nog een klein vraagje
is het simpel om een formulier te maken met van beide datum selectoren erop
waarna na ingave van de beide data de datum in ARDATE en DEPDATE geplaatst worden
als jullie zeggen dat is een ander topic dan kom ik er later nog wel op terug