VBA - Keep getting Type: Mismatch on my code

[NessPJ]

Hello all,

I keep getting a Type: Mismatch error on the following code (orange line):

    Dim Tijdwaarde As Variant

    Tijdwaarde = Sheets("Par").Range("B30").Value

    LastRowATImpSht = Range("C" & "65536").End(xlUp).Row
    
    For i = 2 To LastRowATImpSht Step 1
        Range("F" & i).Value = Format(Range("F" & i).Value, "HH:MM") - TimeSerial(0, Tijdwaarde, 0)
    Next i

I also tried putting Tijdwaarde As String, since i use a "TimeSerial" function but that did not seem to solve the issue.

Any ideas what i'm doing wrong here?

 

[Norie]

Format returns a string and TimeSerial returns a number, you can't subtract a number from a string.

What are you trying to do?

Are you trying to subtract hours from a date/time?

 

[wideboydixon]

Are you trying to do this?

Range("F" & i).Value = Format(Range("F" & i).Value - TimeSerial(0, Tijdwaarde, 0), "HH:MM")

WBD

 

[NessPJ]

@ Norie:
Yes, i'm trying to deduct 30 minutes from a timevalue.
I did not know the Format function always returned as a String, thanks for the info.

@ WBD:
That does exactly what i'm looking for, thanks!