uren registratie code werkt niet meer in 2013 64bits

[edo080]

goedendag,

sinds er excel 2013 op mijn systeem is geinstalleerd heb ik problemen met een script
het script dat alle werkbladen doorloopt en naar de datum kijkt, telt dan de uren bij elkaar op een apart blad.
maar geeft nu een fout waarde in het script

het zou super zijn als er iemand mij een duwtje in de goede richting kan geven

groeten edo

bijgevoegd een test betandje met twee weken erin en de code

Sub Bereken()
Dim oSh As Worksheet
    For Each oSh In Worksheets[ATTACH]257491.vB[/ATTACH]
                'oSh.Unprotect "edo"
          Next
  jaar = CLng(Cells(1, 2).Value)
  For m = 1 To 12
    r = m * 5 - 1
    For k = 1 To 9
      Cells(r, k).ClearContents
    Next k
  Next m
  For Each ws In Worksheets
    If UCase(Left(ws.Name, 1)) = "W" Then
  ws.Select
      For r = 5 To 99
        For k = 6 To 14
        wrde = ws.Cells(r, k).Value
        If IsNumeric(wrde) And ws.Cells(r, 2).Value > 0 And wrde > 0 Then
          yr = Year(ws.Cells(r, 2).Value)
          If yr = jaar Then
            mh = Month(ws.Cells(r, 2).Value)
            rg = mh * 5 - 1
            Cells(rg, k - 5).Value = Cells(rg, k - 5).Value + wrde
          End If
         End If
        Next k
      Next r
    End If
  Next ws
  For Each oSh In Worksheets
    'oSh.Protect "edo"
    Next
   Sheets("totalen").Select
  
End Sub

 

[snb]

Gebruik F8 in de VBEditor en kijk in welke regel de fout optreedt.

 

[edmoor]

En vertel er ook bij wat de foutmelding is.

 

[edo080]

bedankt voor de snelle reactie

als ik fout opsporing doe dan wordt de volgende regel geel

Cells(rg, k - 5).Value = Cells(rg, k - 5).Value + wrde

de foutmelding is dat de typen niet overeenkomen

groeten edo

 

[edmoor]

Hij kijkt op dat moment naar de waarde van cel A4 in het blad w2. Hier probeert hij de waarde van de variabele wrde bij op te tellen. In A4 staat "project". Dit datatype komt dus niet overeen met het datatype van de variabele wrde.