één goed / ander Fout 13 - type komen niet overeen

[richard1102]

Hallo,

Ik heb een macro gemaakt waarin een de data uit een opgemaakte rapportage wordt omgezet in kolommen, voor verder gebruik. De macro zorgt ervoor dat de gebruiker een kant-en-klaar werkblad krijgt met alleen de te gebruiken informatie, gesplitst in kolommen, met uiteindelijk in de laatste kolom een berekening van een tijdverschil.

Nu is de laatste berekening een probleem; ik krijg bij deze berekening een fout 13 : type komen niet overeen. Dit terwijl ik een andere oorspronkelijke rapportage heb, die zonder problemen door de macro heen wordt gehaald en doet wat er verwacht

Hieronder staat het stuk waarin ik het verschil bereken. Ik kan er maar niet achter komen waarom het ene rapport zonder problemen er doorheen komt, terwijl het andere rapport problemen geeft.Bekijk bijlage Rapport.xlsBekijk bijlage Rapport_oud.xlsx

rapport_oud geeft geen enkel probleem; rapport is het probleem - ik zie echter geen verschil

Sub Verschil_bepalen()

With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .DisplayAlerts = False
End With

    Columns("A:E").Select
    Selection.NumberFormat = "General"

    Columns("F:F").Select
    Selection.NumberFormat = "dd:mm:yy"


    Columns("H:J").Select
    Selection.NumberFormat = "h:mm:ss;@"

    Dim i As Integer

For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

       
       
     Range("H" & i).NumberFormat = "hh:mm:ss"
         
     Range("I" & i).NumberFormat = "hh:mm:ss"
         
     Range("J" & i).NumberFormat = "[mm]:ss"
   
        
     Range("J" & i) = Range("I" & i) - Range("H" & i)
        
    On Error GoTo Laatste
    
    
Next i

Laatste:
            
            Cells.Select
            Cells.EntireColumn.AutoFit
            Range("A1").Select
            Sheets("Rapport").Copy
            Sheets("Rapport").Name = ("Rapport van " & Date)
    
            MsgBox "Rapport " & Date & " is gereed voor gebruik!"
With Application
        .Calculation = xlCalculationAuto
        .ScreenUpdating = True
        .DisplayAlerts = True
End With

    Exit Sub

End Sub

 

[huijb]

@richard1102 Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar voor de helpers.

 

[richard1102]

Ah...dank voor de tip

 

[huijb]

Verplaatst. Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.