Function CalcOverTime(objSheet As Worksheets)
Dim sResults(7, 1, 1, 1, 1, 1, 1) As String
Dim iWorkday As Integer
Dim iTotal As Integer
Dim iTotalWT As Integer
sResults = CollectTimeFromSheet(objSheet)
iTotalWT = Sheets("Index").Range("H6").Value
For iWorkday = 0 To 7
iTotal = sResults(iWorkday, 0, 0, 0, 1, 0, 0) - sResults(iWorkday, 0, 0, 1, 0, 0, 0)
If (iTotal > iTotalWT) Then
MsgBox "Überstunde gefunden!"
End If
Next
End Function
Function GetOverTime()
Dim objSheets As Worksheet
For Each objSheets In Sheets
CalcOverTime (objSheets.Name)
Next
End Function