Umstellung 2003 nach 2010

Public Sub Pressminuten_pruefen()
Dim lZeile     As Long    ' For/Next Schleifen-Index - hier die fortlaufende Zeile
Dim dDatum     As Date    ' der Gruppenbegriff Datum
Dim sSchicht   As String  ' der Gruppenbegriff Schicht
Dim dPressMin  As Double  ' die addierten Pressminuten der jeweiligen Schicht
Dim vTemp()    As Variant ' temporärer Array zur Aufnahme der zu großen Schichten
Dim iTemp      As Integer ' Index zum temporären Array
Dim lZ_Strt    As Long    ' die Start-Zeile eines Pressdatums mit seiner Schicht
Dim lZ_Ende    As Long    ' die Ende-Zeile eines Pressdatums mit seiner Schicht
Dim lFarbe     As Long    ' For/Next Schleifen-Index zum Färben von Spalte A
 
   dMaxPrZeit = CDbl(ThisWorkbook.Worksheets("Daten").Range("V5").Value)
   dGrzPrZeit = CDbl(ThisWorkbook.Worksheets("Daten").Range("V3").Value)
   
   Application.ScreenUpdating = False
   With ThisWorkbook.Worksheets("Pressplan")
      .Unprotect Password:=Parole
      For lZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
         If lZeile = 2 Then
            dDatum = CDate(.Range("A" & lZeile).Value)
            sSchicht = .Range("B" & lZeile).Value
            lZ_Strt = 2
         End If
         If CDate(.Range("A" & lZeile).Value) = dDatum And _
            .Range("B" & lZeile).Value = sSchicht Then
            If Trim$(.Range("Q" & lZeile).Value) <> "" Then
               dPressMin = dPressMin + CDbl(.Range("Q" & lZeile).Value)
            End If
          Else
            lZ_Ende = lZeile - 1
            GoSub Pressdatum_faerben
Bei der Befehlszeile dPressMin = dPressMin + CDbl(.Range("Q" & lZeile).Value)
Wenn ich mir CDbl(.Range("Q" & lZeile).Value) im Debugger ansehe ist hier z. B. 444,6 enthalten, während dPressMin mit -1,#IND angezeigt wird.
Was muss hier ggf. angepasst werden?
Gruß Peter