Schleifenproblem
26.11.2005 17:25:33
Mat
ich habe folgendes Problem. Ich muss einen Arbeitszeitnachweis für meinen Chef programmieren. Das Ganze funzt eigentlich auch schon ganz gut.
Ich habe jetzt folgendes Problem: Der Arbeitsbeginn/-ende Pausebeginn/-ende wird über CommandButtons mit der jeweiligen Systemzeit in das Arbeitsblatt eingetragen. Vorgabe ist jetzt, dass bei einer Arbeitszeit über 6 Std. ohne Pause eine MsgBox aufgeht mit einem Warnhinweis.
Meine nachfolgend aufgeführte Schleife hat das Problem, dass das Ganze "nur" nacheinander geht. Gibt es eine Möglichkeit, das über ActiveCell zu Regeln?
I= Arbeitsende, D=Arbeitsbeginn, E=PauseBeginn, F=PauseEnde
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Date, o As Date, p As Date, q As Date, r As Date, s As Date
Dim k As Integer
Dim t As Date, u As Date
For k = 12 To 43
o = Range("I" & k).Value
p = Range("D" & k).Value
q = Range("N2").Value
r = Range("E" & k).Value
s = Range("F" & k).Value
If r = 0 And s = 0 And (o - p) > q Then MsgBox "Ihre Arbeitszeit beträgt mehr als 6 Stunden. Bitte eine Pause eintragen!", vbInformation
Next k
t = Range("P43").Value
u = Range("P46").Value
If u > t Then MsgBox "Achtung!!! Gleitzeitrahmen unterschritten!!"
End Sub
Danke schon mal im Voraus für Eure Hilfe!