Can someone help me to calculate time to decimal from an whole column!
This scrip is not working 100%. I get an error but it writes correct value when I format it into general from time.

In column 6 I have time (like; 08:00, 23:00 etc). I want to use an dateadd "h" to control if any values are bigger then 07:00.
So what I basicly do is:

If DateAdd("h", 1, sheet1.Cells(I, 6)) * 24) - 7> "" Then
I need to convert the time to decimal. If the time in column 7 is: 07:30 I want it to write:0,5 (07:30 - 07:00 (see sub in if-statement)).