ok, what about:
"when fradato changes or when tildato changes then modify dageialt"
- I added a sub : EditDateDiff
- I deleted : dageialt_Change

Private Sub fradato_Change()
EditDateDiff
End Sub

Private Sub tildato_Change()
EditDateDiff
End Sub

Private Sub EditDateDiff()
if isdate(fradato.text) and isdate(tildato) then 'if values are dates
dageialt.value = datevalue(tildato.value) - datevalue(fradato.value)
end if
End Sub

Regards,
Sébastien

"Alvin Hansen" wrote:

Hi sebatienm

Well i try to ecplain
I have 3 textbox
in the two textbox i will write a date
in the last textbox i will have how many days are there
between textbox 2 and textbox 1

Hope you understand

Regards alvin


"sebastienm" skrev:

Hi Alvin.
- What kind of controls are fridato, tildato, and dageialt? What are you
trying to do?
- ''Here i write a date': you write the date where? from the control to an
excel sheet?
- what are you trying to do?

Regards,
Sébastien

"Alvin Hansen" wrote:

hi
I have this
Private Sub fradato_Change()
'Here i write a date
End Sub
Private Sub tildato_Change()
'Her i write another date
End Sub
Private Sub dageialt_Change()
' And it is here i will have the result off
tildato.value - fradato.value
But i can't making work
nothing happens
End Sub

Hope one can help

regards alvin