VBA Code zur Stundenberechnung in Schicht-Plan
12.11.2005 16:44:58
MikeMüller
Ich will folgenden Code (hab ich von Harald E) auf meine Bedürfnisse zuschneiden und in eine Excel-Datei zur Schicht/Stundenberechnung einfügen.
Ich habe eine Beispieltabelle hochgeladen:
Die Datei https://www.herber.de/bbs/user/28334.xls wurde aus Datenschutzgründen gelöscht
Es sollen halt die Standard-Zeiten automatisch eingetragen werden, aber auch änderbar sein. Ich hab mal an einem Tag die Standard-Zeiten als Beispiel eingetragen, wie es sein sollte.
Ich weiß nur, dass ich in den Visual Basic-Editor muss. Das waren leider auch schon meine Kentnisse.
Dim iDate As Integer
Dim dBezug As Date
Sub schicht()
dBezug = #5/17/2004#
'If Not Intersect(ActiveCell, Range("A2:A20")) Is Nothing Then
iDate = (ActiveCell - dBezug) Mod 21
Select Case iDate
Case 0 To 6
ActiveCell.Offset(0, 1) = "06:00 - 14:00"
Case 7 To 13
ActiveCell.Offset(0, 1) = "14:00 - 22:00"
Case 14 To 20
ActiveCell.Offset(0, 1) = "22:00 - 06:00"
End Select
'End If
End Sub