Uhrzeiten vergleichen per VBA

[Marco]

Hallo zusammen,
ich habe folgenden code, in dem ich Uhrzeiten "vergleichen" will. In Office
2003 wird mir eine Zeitdarstellung formatiert als h:mm (z.B. 00:30) als Zahl
dann z.B. mit anderen Dezimalstellen dargestellt, als der Value der rngcell
angibt.
Folglich funktioniert der Code dann auch nicht...
'hier soll kontrolliert werden, ob die Zeit in rngCell(0,9) grösser als 6
Std. ist
If rngCell.Offset(0, 9).Value * 24 >= 6 Then
'Wenn ja soll in (0,7) geschaut werden, ob min 00:30 Std. Pause gemacht
wurde...
If rngCell.Offset(0, 7).Format < "2,083333333333333" Then
rngCell.Offset(0, 7).Value = "0:30"
MsgBox "Sie haben mehr als 6 Stunden gearbeitet ohne die gesetzliche
Pause" & vbCrLf & "einzuhalten. Es werden 30 Minuten Pause zu Grunde gelegt
!", vbCritical
End If
Else

[unknown]

Hallo marco,
versuch es mal so:

'...
If rngCell.Offset(0, 9).Value >= TimeSerial(6, 0, 0) Then
If rngCell.Offset(0, 7).Value < TimeSerial(0, 30, 0) Then
rngCell.Offset(0, 7).Value = "00:30:00"
MsgBox "Sie haben mehr als 6 Stunden gearbeitet" & _
"ohne die gesetzliche Pause" & vbCrLf & _
"einzuhalten. Es werden 30 Minuten Pause zu Grunde gelegt!", _
vbCritical
End If
Else
'...
End If
'...

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprogrammierung #