Umstellung 2003 nach 2010
Peter
ich versuche gerade meine ersten Schritte von Excel 2003 auf Excel 2010 und falle bei einer simplen Addition auf die Nase.
Excel 2010 sagt mir Laufzeitfehler 16 - Ausdruck zu komplex
und zwas hier
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